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PPPPPPPP AAAAAA SSSSSSSS_ 000000 + =PPPPPPPP EEEEEEEEEE NN NN 22222 | F 
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| : 
LL LIII11 SSSSSSSS : 
LL eeeeel SSSSSSSS | : 
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LL I] S$ : 
LL 1] S$ | : 
LL I] $$ | : 
LL I] SSSSSS : 
LL Il $SSSS5 ; 
LL I] ss | . 
LL I] $$ ; 
LL I] SS : 
LL I] $$ : 
LLLLLLLLLL eeeeel SSSSSSSS : 
LLLLLLLLLL eeeeel SSSSSSSS ; 
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ABSTRACT: | 
; This module contains PASSOPEN2 and PASS$SOPEN, which open a file. 
; ENVIRONMENT: User mode - AST reentrant 
st AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
0041 i MODIFIED BY: 
é sng i 
4 004 i 4-001 - Original. SBL 1-April-1981 
44 0044 i 1-002 - Give ACCME TING message if ACCESS METHOD:=DIRECT and device 
45 0045 i + not a random-access device. Bon't store PFV address in enable 
46 0046 i argument until the FCB pointer is stored. SBL 21-June-1982 
47 0047 i 1-003 - in CHECK_KEY pes don't assume that XAB_SUM is still Linked 
48 0048 1! o the FAB. ~SBL 8-July-1982 
49 0049 i 1-004 - - CHECK_KEY_ RAS. allow any defined, but $n eSBt eb key Eyge- 
50 0050 i Don't enable’ promp gi Wy. on yppeesed terminals. 20-July-19 
51 0051 i 1-005 = Copy DEV$V_RND to FCB L 29-July-1 
26 B06 i 1-006 - Store DEV$0_FOD instead” at SEVEV-RND, Keep DEVS$V_RND for 
5 005 i ACCESS_METHOD:=DIRECT test. SBL 29-July-1 
54 Ooze i 1-007 - Call P PASSSREROVE PILE from Oren. HANDLER” 1882 deallocate FCB and 
55 055 i store STATUS. QAR FT3-002 L~30-Aug-1 
56 8028 i 1-008 - Use FABSW BLS on ie 1 eM he devices to determine file's 
57 005 i recordsizée. Correct RECORD_LENGTH check. Remove VMS V2 variant 
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OPEN procedure 
Declarations 


RSBTTL ‘Declarations’ 
PROLOGUE DEFINITIONS: 


REQUIRE ‘RTLIN:PASPROLOG'; 


'¢ 


Linkage definitions for internal procedures. 


LINKAGE 
CALL FILL KEY XABS = 


CALL TREGISTER=6, REGISTER=7), 


CALL _CHECK_KEY_XABS = 


CALL (REGISTER=6, REGISTER=7); 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
PASSOPEN2: NOVALUE 
PAS$SOP 


OPEN_RANDCER, 
EXIT_HANDLER: NOVALUE; 
i MACROS: 
NONE 
: EQUATED SYMBOLS: 
NONE 
} FIELDS: 
NONE 
: OWN STORAGE : 


'¢ 


! Declare a longword which is used as a flag to indicate whether or not 
! an exit handler has been declared. 


OWN 
EXITH DECLARED: INITIAL (0); 


'¢ 


! Declare two logs which indicate if the files INPUT and OUTPUT have ever 
set, PASSSLOOK_AHEAD will not implicitly open them. 


' been opened. | 


ee 


! Linkages, externals, PSECTs, structures 


P compiled code 
SSSOPEN: CALL_OPEN NOVALUE, f 
PASSSOPEN_IMPLICIT: JSB_OPEN_IMPLICIT NOVALU en INPUT and OUTP 
FILL KEY RABS: CALL_FILC_KEY XABS NO ' 

CHECR_KEY_XABS: CALC_CHETK_KEY_XABS NOVALUE,! Check KEY XABs 

! Condition handler for PASS$SOPEN 
! Established by PASS$SOPEN 
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PASRTL.SRCJPASOPEN 


GLOBAL 
PAS$$GV_INPUT_OPEN 
PAS$$GV_OUTPUT_OPE 
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rocedure 1 
OPEN2 = Open a file 1 


1 ZSBTTL ‘PASSOPEN2 = Open a file' 
GLOBAL ROUTINE PASSOPEN2 ( ! 
PFV: REF SPASSPFV_FILE_ VARIABLE, ' 
KEYWORDS: VECTOR [, LONG] ' 

): NOVALUE = 
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en a file 
le variable 
ywords and specifiers 
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; FUNCTIONAL DESCRIPTION: 


This routine opens a Pascal file. This entry is called from the 
compiled code for the OPEN procedure. 


i CALLING SEQUENCE: | 
CALL PASSOPEN2 (PFV.mr.r C, keyword.rz.v C, keyword.rz.v ...J]) | 
| 


mMrororororororororororory 
Se 
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i FORMAL PARAMETERS: 


PFV - The Pascal File Variable (PFV) passed . reference. 
The structure of the PFV is defined in PASPFV.REQ. 


keyword - Zero or more values representing keywords in the 
OPEN procedure. Some keywords are followed b 
associated arguments and values. See PASOPNKEY.REQ 
for the keyword value definitions. 


If the keyword ERROR is specified, it must be first 
in the List, otherwise it will be ignored. 


NONE 

i IMPLICIT OUTPUTS: 
NONE 

i COMPLETION STATUS: 
NONE 

i SIDE EFFECTS: 
See PASSSOPEN. 

i SIGNALLED ERRORS: 

i See PASSSOPEN. 
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i IMPLICIT INPUTS: 
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5 BEGIN 

5 LOCAL 

6 FCB: REF SPAS$FCB_CONTROL_BLOCK, ' Control block 

7 PFV_ADDR: VOLATILE, ' Enable argument 
8 UNWIND_ACT: VOLATILE, ! Enable argument 
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eg " 
OPEN2 = Open a file 


PASSOPENC OPEN 
1-015 PAS$ 
199 0 

00 Q 
01 0 
0 Q 
0 0 
04 
05 
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19-300" 138% 1:46:15 AX-11 BLi 

14-Sep-19 R 
! Enable argument 


ERROR_ADDR: VOLATILE; 


BUILTIN 
ACTUALCOUNT, 


CALLG; 


ENABLE 
PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); 


+ , 
Set PFV_ADDR enable argument. 


PFV_ADDR = PFV CPFVS$R_PFV]; 


+ 
! If ERROR is present, it is the first keyword in the list. See 
! if that is true. If so, set enable argument to the return address. 


ll carat () GEQuU 3 ! At least 3 needed for PFV, keyword, value 
— CO] EQL PAS$K_ERROR ! Is it the ERROR keyword? 
ERROR_ADDR = .KEYWORDS [1]; 


‘+ 
Validate and lock PFV. 


PASSSVALIDATE_PFV (PFV CPFVSR_PFV]; FCB); 


'¢ 
Set unwind action to unlock file. 


UNWIND_ACT = PASSK_UNWIND_UNLOCK; 


14 
: If the file is already open, it's an error. 


IF .PFV CPFVSV_OPEN] 


HEN 
SPASSIO_ERROR (PAS$_FILALROPE,O); ! File already open 


'¢ 
Do the OPEN. 


CALLG (.AP, PASS$SOPEN); 


'¢ 
! Indicate successful completion 
Unlock the file variabie. 
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rocedure Jp~2e0= 138+ 01:46:15 VAX-11 Bliss-32 Veg 246 
14-Sep-1984 12:51:41 CPASRTL.SRCJPASOPEN2.B32;1 (3) 


OPEN2 = Open a file 


OPEN 
PASS 
0317 
0 18 FCB CFCBSL_STATUS) = 0; 
031 PFv CPFV$VLOCK] = 0; 
0320 
088 RETURN; 
03 5 1 END; ' End of routine PASSOPEN2 
-TITLE PASSOPEN2 OPEN procedure 
SIDENT \1-015\ 
.PSECT _PASSDATA,NOEXE, PIC,2 
00000000 00000 EXITH DECLARED: ‘ 
00 00004 PASS$GV_INPUT_OPENED: : 
00 00005 PASS$$GV_OUTPUT_OPENED: : 
.BYTE ~ 0 


-EXTRN PASSOPEN2, ‘sitiee 


"EXTRN. PASSSSIGNAL. e pASSK _FILALROPE | 
.PSECT _PASSCODE,NOWRT, SHR, PIC,2 | 


ENTRY PASSOPEN2, Save R2,R6,R7 : 0204 | 
SUBL2 
CLRL ERROR_ADDR 
CLRQ UNWIND_ACT 
MOVAL 38, (FP) 
MOVL PFV, R6 

MOVL R6, PFV_ADDR 
CMPB (AP), #3 


1 
CMPL — #25 


MOVL —KEYWORDS+4-_ ERROR_ADDR 
1$: JSB PASSSVALIDATE_P 
MOVL #1, UNWI ND-ACT. 
C #5, 7(R6), 28 
CLRL 0s = §P) 
MOVZBL #PASSK_FILALROPE, -(SP) 
CALLS #2, PASSS$SIGNAL 


2$: CALLG (AP), PASS$SOPEN 
CLRL -44 (FCB) 


MOVL PFV, RO 

B1 C82 #128, 7(RO) 

3$: -WORD Save nothing 
MOVL CAP), RO 


MOVL  4(RO), RO 
PUSHAB ERROR_ADDR 
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PASSOPEN2 OPEN procedure 16-Sep-1984 01:46:15 AX-11 Bliss-32 V4.0-74 Page 8 P 
att PASSOPEN2 = Open a file 12-80-1382 93: 741 PASRTL. RCIPASOPEN -B32;1 . (3). 1 

F8 AO OF b06¢ PUSHAB UNWIND_ACT ; 

FC AO 9F 0006 PUSHAB PFV_ADBR ; 

g DD 00068 PUSHL : 

E bp 0006A PUSHL SP F 

7E 04 AC D 0006C MOVQ 4(AP), -(SP) : 

000000006 00 03 FB 00070 CALLS #3, PASS$$IO_HANDLER : 

04 00077 RET 3 

; Routine Size: 120 bytes, Routine Base: _PASS$CODE + 0000 


24 (1 
25 1 !<BLF/PAGE> 


PASSOPEN2 OPEN procedure 1b-se 1984 01:46:15 AX-11 Bliss-32 V4.0-74 P y 
1-015 PASSSOPEN = Open a file Ve-Sep-1984 12:31:41 EPASRIL SRE SPASOPENS.039; 1 29° (4) 
H 66 i) § 1 ZSBITL ‘PASSSOPEN - ppen a file’ 

; 267 0 1 GLOBAL ROUTINE PASS$SOPEN ( ! Open a file 

; 68 8 8 1 IN_PFV: REF SPASSPFV 4 aaa ! File variable 

: 269 9 1 KEYWORDS: VECTOR C, CONGJ; ' Keywords and specifiers 

: 270 0330 1 FCB: REF $PASS$FCB_CONTROL. BLOCK i File control block 

: f} 8 1 : ): CALL_OPEN NOVALUE = 

3 ef O° : 1 '+4 
E ne B3 2 : FUNCTIONAL DESCRIPTION: 

: 276 0336 1! This procedure opens the Pascal file specified by ‘‘PFV'' 

: e777 83 ga 8 using the attributes pene teiy supplied as ‘keyword’. PASS$SOPEN 

; 278 0335 1°! is to be called from other RIL routines only after they have tested 

: 508 ba25 : and set PFV$V_LOCK in ‘'PFV"’. 

; 281 0341 i CALLING SEQUENCE: 

3 288 0348 : CALL PASSSOPEN (PFV.mr.r C, keyword.rz.v C, keyword.rz.v ...J)) 

3 85 0345 ; FORMAL PARAMETERS: 

: 287 0347 1! PFV - The Pascal File Variable (PFV) passed by reference. 

; soe Be5 : The structure of the PFV is defined in PASPFV.REQ. 

: 290 0350 1! keyword - Zero or more values representing keywords in the 

g 29) 0351 1! OPEN procedure. Some keywords are followed b 

s @%8 bsg 1% associated arguments and values. See PASOPNKEY.REQ 

: $37 O327 ' for the keyword value definitions. 

: 295 0355 i IMPLICIT INPUTS: 

; 344 Sete : The PFV$V_LOCK bit is assumed to have been tested-and-set by the caller. 
; o99 0359 i IMPLICIT OUTPUTS: 

; 301 0361 1! FCB - The address of the File Control Block for the file 

; $06 6366 : is returned in the register designated by the Linkage. 
; 304 0364 1 | PFV - If the RELPFD or RELBUF bits are set in the PFV, those 
: $03 ogee : self-relative addresses are resolved. 

; 307 0367 i ROUTINE VALUE: 

; 309 0369 1 | NONE 

: 310 0370 1! 

; $13 tial : SIDE EFFECTS: 

3 318 0378 : Declares an exit handler, if not already declared. 

; 315 0375 1! The file is opened. Internal RTL and RMS structures are allocated 

: 318 b359 : and initialized. The PFV is set to indicate an opened file. 

; 318 0378 | | SIGNALLED ERRORS: 

: 320 0380 1 

3; Sel 0381 1! 

: 322 0382 1 !-- 


F 11 | 
PASSOPENG OPEN procedure 193007 138% 61:46:15 AX-11 Bliss-32 oF gf Page 10. P 
1-01 PASSSOPEN = Open a file 14-Sep-1984 12:51:41 PASRTL.SRCJPASOPEN2.B32:1 (4) | 1 
3 0383 ; 
4 0384 BEGIN ; 
5 0 5? ; 
6 0386 LOCAL : 
7 0387 PFV: REF SPASSPFV_FILE_VARIABLE, ' Pascal File Variable $ 
28 Bees PFV_ADDR: VOLATILE ! Address of PFV ; 
309 0389 XABREY_ADDR: VOLATILE, i Contains address of dynamically ; 
; 0 Bene ! allocated KEY XABs. | ; 
31 0391 XABKEY_SIZE: VOLATILE, ! Contains size in bytes of 3 
336 0335 ! allocated KEY XABs. : 
334 039% XAB_FHC: SXABFHC_DECL, ' RMS FHC XAB | ; 
$42 $34) XAB_SUM: $XABSUM_DECL, ! RMS SUM XAB : 
337 0397 USER ACTION BPV: REF VECTOR C2, LONG], ! USER_ACTION routine descriptor ; 
338 0398 USR_ORG: BYTE, ! User=specified organization | ; 
339 0399 USR_RFM: BYTE, ! User=specified record format ; 
340 0400 USR-USZ: WORD i User-specitied record size _ | : 
341 0401 FILE_TYPE: SIGNED, ! Is this INPUT, OUTPUT or neither? F 
<6 040 ! Values can be: : 
34 040 i K_INPUT = -1 | : 
344 0404 ' K_-NEITHER = 0 : 
5 0405 ! K-QUTPUT = 1 $ 
346 0406 RESULT_NAME_STRING: VECTOR CMAXU(NAMSC_MAXRSS,LNMSC_NAMLENGTH) , BYTE]; : 
47 040 ! Resultant name string : 
4 0408 : 
040 STACKLOCAL ; 
gee KEYWORDS_SEEN: BITVECTOR CPASSK_OPEKEYHI+1]; ! Keep track of keywords seen ; 


'¢ 
1 PASSSAB_KEYWD_NAME_TABLE correlates the individual keyword code values to 
! the names keyword. This is used to keep track of which keywords have 
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34 

3 7 

348 

349 g 

350 

351 0411 

352 Bote 

353 041 

354 0414 

355 0415 ' been seen. 

356 0416 

357 0417 

358 0418 GLOBAL 

359 0419 PAS$SSAB_KEYWD_NAME_TABLE: VECTOR CPASSK_OPEKEYHI+1, BYTE] PSECT (_PASSCODE) 

360 0420 PRESET ( 

361 0421 CPASSK_FILE_NAME] = PASSK_FILE_NAME, 

362 0422 CPASS$K_DEFAOLT_FILE_NAME]-= PASSK_DEFAULT_FILE_NAME, 

363 0423 PAS$K_HISTORY_OLD) = PASSK_HISTORY, 

364 0424 PASS$K_HISTORY_NEW) = PASSK-HISTORY 

365 0425 ASSK_HISTORY-UNKNOWN) = PAS$K HISTORY, 

366 bees PASS$SK_HISTORY_READONLY) = PAS$R_HISTORY 

367 0427 PASSK-RECORD_CENGTH] = PAS$K_RECORD LENGTH 

368 0428 ASSK_ACCESS-METHOD_SEQUENTIAL] = PASS$K_ACCESS METHOD, 

369 0429 PASSK_ACCESS_METHOD_DIRECT) = PASSK_ACCESS METAOD, 

370 0430 PASSK_ACCESS_METHOD KEYED) = PASSK ACCESS METHOD, 

371 0431 PASS$K_RECORD_TYPE_FIXED) = _PASS$K_RECORD TY 

372 0432 PAS$K_RECORD_TYPE_VARIABLE) = PASSK_ RECORD TYPE, 

373 043 PAS$K_RECORD_-TYPE_STREAM) = PAS$K_RECORD 

374 0434 PASS$K_RECORD_TYPE_STREAM_CR] = $K_RECORD_TYPE, 

375 0435 PASSK_RECORD- TYPE STREAM_LFJ) = PAS$K_RECORD 
76 0436 PASSK_CARRIAGE_CONTROL_LIST) =_PASS$K~CARRIAGE_CONTROL 
77 043 PASS$K~CARRIAGE-CONTROL_FORTRAN] = PAS$K_ CARRIAGE CONTROL, 
78 0438 PASS$K_CARRIAGE-CONTROL-NONE] = PASSK_CARRIAGE CONTROL, 
379 0439 PASS$K_ORGANIZATION_SEQOENTIAL] = PASSK_ORGANIZATION, 
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11 
rocedure : 18-Sep-1984 91:46:13 AX-11 ot -32 V4. 
PEN = Open a file 14-Sep-1984 12:51:41 PASRTL. SRC} PASOPEN2. 
PASS$K -ORGANI ZATION RELATIVE] = PAS$K_ORGANIZATION, 
PASSK_ORGANI ZATION [NDEXED = PAS$K_ORGANIZATION, 
PASSK_DISPOSITION_SAVE] = PASSK_DISPOSITION 
PASSK_DISPOSITION DELETE] = PASSK DISPOSITION, 
PASSK-DISPOSITION-PRINTJ = PASS$K_BISPOSITION 
PASSK-DISPOSITION~PRINT DELETE] = PAS$K_DISPOSITION, 
PAS$K-DISPOSITION-SUBMIT)] = PASSK_DISPOSITION 
PAS$K-D1SPOSITION SUBMIT DELETE] = PASSK_DISPOSITION, 
PAS$K_ERROR]) = PASSE ERROR 
PASSK-USER_ACTION] ="PAS$K USER_ACTION, 
PAS$K_SHARING_NONE] = PASSR suany N 
PAS$K~SHARING-READONLY] = PASSK SHARIN 
PASSK-SHARING_READWRITE) = PASSR SEARING) : 


ICPEPIPOPPPINYNDNINININIPYAININININININININININPINSPINONONNoPoNoNoNnonononofny 


LITERAL 
YPE = file is INPUT 


YPE - file is OUTPUT 


= FCB: REF BLOCK C, BYT 
FAB = FCB: REF SPASS$FAB_FCB 
= FCB: REF SPASSNAM_FCB 


EJ, 

STRUCT, 

“STRUCT; 

'¢ 

i Establish local condition handler which will close the file upon 
' an unwind. 

ENABLE OPEN_HANDLER (PFV_ADDR, XABKEY_ADDR, XABKEY_SIZE); 


'¢ 


FILL in Local XAB blocks. 


SXABFHC_INIT (XAB=XAB_FHC, NXT=XAB_SUM); 
$XABSUM~INIT (XAB=XAB™ SUM); 


'¢ 

Move PFV argument to local PFV. 

PFV = .IN_PFV; 

te 

: If the PFD address is relative, resolve it. 
IF .PFV CPF VSV_RELPFDJ 

THEN 


BEGIN 
PFV CPFVSA_PFD) = .PFV CPFVSA_PFD] + PFV CPrVSR_PFV); 


' For FILE_T 
' For FILE_TYPE - neither INPUT “~~ OUTPUT 
! For FILE_T 


—wv 


Sete Se Be Se Se ee Be SH Se ee Se Se Se Se Be Se Se Se Sees Se Se Se ee Se Se Se Se Se Se Se Se ee Se Se Se Se eae 


——————___—_—— 


PASSOPENZ OPEN procedure 1 
1-01 PASSSOPEN = Open a file 1 


38 a PFV CPFVSV_RELPFD) = 0; 


H 11 
$-300° 1984 91:66:15 AX-11 Bliss-32 v4. 
46-Sep-1984 12:51:41 PASRTL.SRC PASOPEN 


49 END; 
4 
If the buffer address is relative, resolve it. 


IF TESTBITSC (PFV CPFVSV_RELBUF J) 
PFV CPFVSA_BUFFER] = .PFV CPFVSA_BUFFER] + PFV CPFVSR_PFV); 


¢ 
Declare exit handler if it hasn't yet been declared. 
IF TESTBITCS (EXITH_DECLARED) 
THEN 
BEGIN 
Allocate and fill in the control descriptor block. 
LOCAL 
EXITH_CONTROL_BLOCK: REF VECTOR C, LONG); 
H_CONTROL_BLOCK = PASSSGET_VM (PFV CPFVSR_PFV], 20); ! 5 Longwords 


T 
TH_CONTROL_BLOCK (1) = EX IT[HANDLER; Rout ine address 

TW. CONTROL_BLOCK (2) dditional longword 
L 


EX] 
EX! 
EX] § 1 
EXITH-CONTROL BLOCK (3) = EXITH CONTROL BLOCK C4); ! Reason for exit 
se ERH (DESBCK=EX1 TH. CONTROL -8Cock (013; ! Assume success 

'¢ 

K Set FILE_TYPE depending on whether the file is INPUT, OUTPUT or neither. 


> 
“ 
uw 

palo leflololoeflelolelelejleleleleloeloelelelelelolelelelolelelolo) 


IF PFV CPFVSR_PFV] EQLA PASSFV_INPUT 
THEN 


FILE_TYPE = K_INPUT 
ELSE IF Pry CPFVS$R_PFV) EQLA PASSFV_OUTPUT 


FILE_TYPE = K_OUTPUT 
ELSE 

FILE_TYPE = K_NEITHER; 
le 


i” Allocate the FCB+RAB+FAB+NAM block. It will be zero-filled by 
4 PASSSGET_VM. 
FCB = PASSSGET_VM (PFV CPFVSR_PFV], PASSK_FILE_DYN_BLN) + FCBSK_BLN; 


\¢ 
Initialize blocks. 
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RAB CRAB$B_BID) = RABSC_BID; 


7838; 


a 
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PASSOPEN2 OPEN procedure 14- Sep-1984 01:46:15 AX-11 Bliss-32 v4. 
att PASSSDPEN - Open a file 14- ~300 71387 12:51:41 PASRTL. SRC JPASOPEN “B35, 31 
: 49% 0554 RAB [RAB$B_BLN) = RABSC_BLN; 

; 495 82 5 FAB [FABSB_BID)] = FABS$C_BID; 

; $38 228 FAB [FABSB_BLN) = FABSC_BLN; 

; 49 055 NAM [NAM$B_B1DJ = NAMSC 810; 

; 498 0558 NAM (NAMS$B_BLN] = NAMSC”-BLN 

: 499 0999 NAM CNAMSL-ESA) = RESULT NAME STRING; 

; 500 560 NAM [NAM$B_ESS] = $C_MAX 

; 501 0561 NAM CNAMSL-RSA] = RESULT_NAME STRING: 

; 208 B26 NAM CNAM$B_RSS] = 

: 50 056 RAB CRABSL~FAB] = FAB (0,0,0, i: 

> 504 0564 FAB CFABSL_NAM) = NAM (0,0,0,0); 

; 505 065 FAB CFABSL-XAB] = XAB_FHC; 

; 506 566 

3; Jor 0567 4 ; : 

; 508 0568 ' Set initial values in FCB 

; 509 0569 le 

; 510 0570 2 

s STi 0571 § FCB CFCBSA_PFV] = PFV CPFVSR_PFVI; 

; 21g Bal¢ 

zs > 0573 2 '+ 

; 514 0574 2 ! Store FCB address in PFV and set the FCB_VALID bit. 

3 319 0575 2 le 

gs 36 0576 § 

s Si? 0577 PFV CPFVSA_FCB) = FCB CFCBSR_FCBI; 

; 518 0578 2 PFV CPFV$V-FCB_VALIDJ = 1; 

; 519 0579 2 PFV_ADDR ="PFV-CPFVSR_PFV); 

3; Seo 0580 2 

3 Del 0581 2 '¢ 

3 See B28¢ 2 i _Get information from PFD that we need. 

s pes 0583 2 ! 

3 63e6 0584 ¢ 

3 Ses 0585 BEGIN 

s Seo 0586 3 LOCAL . ; 

3 2sf $344 ; PFD: REF SPASSPFD_FILE_DESCRIPTOR; ! Pascal File Descriptor 
3; 9¢9 0589 3 PFD = .PFV iad pres ! Get PFD address : 

: 530 0590 3 FCR CFCB$W_ATTRIB] = D CPFDSW ATTRIBI: ' Set attributes 
3 35) 0591 3 FB CFCBSA_ PDI e PFD “TPEDER _PFOI; ! PFD address 

; eee 0592 3 

;. 2a 0593 ; '¢ 

; 534 0594 i Set the default RECORD_LENGTH. If a TEXTFILE, it's 133. Otherwise, 
s So: 0595 3 i its the Length of the record (not including the length word for 
; 3 0596 3 ' a@ VARYING.) 

s S37 0597 3 oe 

; 538 0598 

: 539 0599 IF NOT .FCB CFCBSV_TEXT) 

: 540 0600 THEN 

: «541 0601 4 BEGIN 

3 246 0602 4 IF .PFD CPFDSL_LENGTH] GTRU 65535 ! Component type too long? 
: 54 0603 4 THEN 

3 «544 0604 4 SPASSIO_ERROR (PASS_INVRECLEN,1,.PFD CPFDSL_LENGTH)); 

; ez Ren? ? IF {Fee CFCBSV_VARYING]~ 

; 547 0607 4 "RAB CRAB$W_USZ] = .PFD CPFDSL_LENGTH] - 2 ! Subtract for length word 
; 548 0608 4 ELSE 

; 549 0609 4 RAB CRAB$W_USZ] = .PFD CPFDSL_LENGTH); 

; 550 0610 4 D 
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PASSOPEN2 OPEN procedure 16-Sep-1984 01:46:15 AX-11 Bliss-32 V4.0-74 Page 15) 
at PASSSOPEN - Open a file 19-88-13 2:51:41 PASRTL. RCIPASOPEN 83231 . (5) | 

| 

; 8 0617 ‘+ i 
: 24 0618 Look through keyword List and set all specified attributes. i 
: $61 620 
5 6¢ 0621 KEYWORDS_SEEN <9 32> = 0; ! Indicate no keywords seen i 
: 56 06 : KEYWORDS-SEEN <30,PAS$K_OPEKEYHI-31> = 0; i 
: 564 06 INCR I FROM 0 TO (ACTUACCOUNT () = 2) DO H 
3 36> 0624 BEGIN : 
; 566 0625 : 
; 567 06 § LOCAL i 
>; 568 06 KEYWD_VALUE; i 
; 28? 80 8 : 
; é 0 629 \+ : 
s 571 0630 ' Check for valid keyword code. If not already seen, use the i 
; a7¢ 0631 ! keyword. i 
mm - ett = i 
3 Sf6 06 i 
s $75 0634 KEYWD_VALUE = .KEYWORDS (.1]; ‘ 
3 278 3082 H IF .KEYWD_VALUE LSS PASSK_OPEKEYLO OR .KEYWD_VALUE GTR PASS$K_OPEKEYHI : 
3 378 +e e4 ; SPASSIO_ERROR (PASS$_INVARGPAS,O); ; 
3 44 seh : 7 TESTBITCS (KEYWORDS_SEEN C.PASSSAB_KEYWD_NAME_TABLEL.KEYWD_VALUEJ]) i 
: 582 0641 3 CASE .KEYWD_VALUE FROM PASSK_OPEKEYLO TO PASSK_OPEKEYHi OF ‘ 
: 583 064 3 SET ; 
; 584 0643 3 i 
; 585 0644 3 CPASS$SK_FILE_NAME]: i 
: 586 0645 4 BEGIN 
: 587 0646 4 LOCAL 
; 588 0647 4 FNS: WORD; 
; 589 0648 4 FNS = .KEYWORDS C(1=.1+1)]; ! Get string size 
; 590 0649 4 IF .FNS GTRU 255 
; «#591 0650 4 THEN 
; 238 0651 4 SPAS$IO_ERROR (PAS$_INVFILSYN,0); 
: Be3¢ 4 FAB CFABSB_FNS] = .FNS; . | 
; 594 0653 4 FAB CFABSL_FNA] = .KEYWORDS (C(1=.1+1)]; ' String address 
; 595 0654 3 : 
; 596 0655 3 
; 597 0656 3 CPAS$K_DEFAULT_FILE_NAME): 
; 598 0657 4 BEGIN 
: 599 0658 4 LOCAL 
; 600 0659 4 DNS: WORD; ies? 
: 601 0660 4 DNS = .KEYWORDS C(I=.1+1)]; ! Get string size 
; 602 0661 4 IF .DNS GTRU 255 
: 603 0662 4 THEN 
3 04 0663 4 SPASSIO_ERROR (PASS$_INVFILSYN,0); 
3 605 0664 4 FAB CFABSB_DNS] = .DNS; : 
; 606 0665 4 FAB CFABSL_DNA] = .KEYWORDS (C(I=.1+1)]; ! String address 
; 607 066 ; END; 
; 608 399 
; 609 668 3 CPAS$K_HISTORY_OLD): 
; 610 0669 4 BEGIN 
3 611 670 4 FCB CFCBSV_OLD_FILEJ = 1; 
: oi¢ 671 4 FAB CFABSV_GETJ = 1; 
; «661 0672 4 FAB LFABS$V_PUT) = 1; 
3; 614 0673 4 FAB CFABSV_TRNJ = 1; 


— 


PASSOPENC OPEN precedure 18-Sep-1984 9 74 


715 AX-11 Bliss-32 V4.0-7 
PASSSOPEN = Open a file 14-Sep-1984 1 j 


1:46 s 
2:51:4 PASRTL.SRCJPASOPEN2.B32; 1 


; 615 0674 4 FAB CFABSV_DEL) = 1; ‘ 
: 218 0675 4 FAB LFABSV_UPD] = 1; : 
; 61 Bere END; : 
; 618 067 : 
> 619 0678 CPASSK_HISTORY_NEW): : 
; 650 0679 4 BEGIN ; 
ae 4 god 4 FAB CFABSV_GET) = 1; ; 
; 6 < 0681 4 FAB [FABSV_PUT]) = 1; : 
3; 6 Bore 4 FAB CFABSV_TRN) = 1; ; 
> 624 06835 4 FAB LFABSV_DEL) = 1; : 
; 625 0684 4 FAB CFABSV_UPD] = 1; | ; 
: 626 0685 END; ; 
; 627 0686 : 
; 628 0687 CPAS$K_HISTORY_UNKNOWN] : | j 
; 69? 0688 4 BEGIN i 
; 630 0689 4 FAB CFABSV_CIF] = 1; | : 
; 631 0690 4 FAB CFABSV_GETJ] = 1; | : 
; 632 0691 4 FAB CFABSV_PUT) = 1; | : 
; 633 0692 4 FAB CFABSV_TRNJ = 1; : 
; 634 0695 4 FAB CFABSV_DEL] = 1; : 
; 635 0694 4 FAB CFABSV_UPD] = 1; : 
; 636 0695 3 END; 3 
; 637 0696 3 : 
; 638 0697 3 CPASSK_HISTORY_READONLY]: : 
; 639 0698 4 BEGIN : 
; 640 0699 4 FCS CFCBSV_OLD_ FILE] = 1; ! MUST be old . 
> 641 0700 4 FCB CFCBSV-READ_ONLY) = 1; | ; 
3; 642 0701 4 FAB CFABSV_GETJ = 1; | H 
; 643 44 3 END; : 
: 644 0703 3 : 
3; 645 0704 3 CPAS$K_RECORD_LENGTH): : 
; 646 0705 4 BEGIN 3 
; 647 0706 4 IF .KEYWORDS C(1=.1+1)] GTRU 65535 3 
; 648 0707 4 THEN F 
3 649 0708 4 SPASSIO_ERROR (PAS$_INVRECLEN,1,.KEYWORDS (.1]); : 
: 650 0709 4 USR_USZ = .REYWORDS C.11; : 
; 651 0710 4 : 
: 636 0711 4 ‘+ : ; . ; 
s 6 tart & ! If RECORD_LENGTH specified for textfile, use it. . : 
; 654 0715 4 ! Otherwise, keep it so we can give an error Later if : 
; 655 0714 4 ! it doesn't match existing file's record length. : 
; 656 0715 4 !- H 
3 637 0716 4 3 
; 658 0717 4 IF .FCB CFCBSV_TEXT) ; 
; 659 0718 4 THEN ; 
; 660 0719 4 RAB CRAB$W_USZ] = .USR_USZ; : 
; 661 0720 3 END; i 
; 66 0721 3 : 
; 66 0756 3 CPASS$K_ACCESS_METHOD_SEQUENTIAL): ‘ 
: 664 07 4 BEGIN ; 
; 665 0724 4 FCB pF COSY. SEQNENTIALS = 1; eae 
; 666 4 5 4 FAB CFAB$V_SQ0) = 1; ! Optimize network access i 
; 668 0737 ; i 
; 669 0728 CPASSK_ACCESS_METHOD_DIRECT): ‘ 
: 670 1494 4 i 
3; O71 0730 4 FCB CFCBSV_DIRECT) = 1; i 


M11 
PASSOPEN2 OPEN procedure 16-Sep-19 6:15 Ax-11 B -74 Page 17. 
ett PASSSDPEN - Open a file 14- 3007 13b2 95 HE PASRILS bie SpasovEns. -B32;1 (5) 
s 67 0731 4 RAB [CRABSL mite = FCB CrCBSL, yey ]; 
; 67 Bf ¢ 4 RAB RABSV_UIF] = 1; Update if record exists | 
oe MEY “ 
3 ors 4 5 7 CPAS$K_ACCESS_METHOD_KEYED): 
: 678 07 5 4 FCB CFCBSV_KEYED] = 
; 679 0738 END; 
; 680 0739 
; 681 0740 CPASS$K RECORD. TYPE_FIXED): 
3 one 0741 4 
; 68 bree 4 FAB CFABSB REM] = FABSC_FIX; 
> 684 074 END; 
; 685 0744 
; 686 0745 CPAS$K_RECORD_TYPE_VARIABLE]: 
; 687 0746 4 
; 688 0747 & FAB CFABSB_RFM] = FABSC_VAR; 
3; 689 0748 END; 
; 690 0749 
; 691 0750 CPAS$K_RECORD_TYPE_STREAM]: 
; 692 0751 4 BE 
3; 693 0726 4 FAB CFABSB_RFM] = FABSC_STM; 
> 694 0753 3 END; 
; 695 0754 3 
; 696 0755 3 CPASSK RECORD_ TYPE_STREAM_CRJ: 
3; 697 0756 4 
; 698 0757 & END: TFABSB _RFM] = FABSC_STMCR; 
; 699 0758 3 END | 
; 700 0759 3 
; 701 0760 3 CPASSK a. TYPE_STREAM_LF J: 
: 702 0761 4 8 
s 705 3534 4 FAB TFABSB_ RFM] = FABSC_STMLF; 
: 704 0763 3 END; | 
: 705 0764 3 
; 706 0765 3 CPASS$SK — _CONTROL_LISTI: 
3; 707 0766 4 
: 708 0767 4 FAB TrABSV. CR] = 
: 709 0768 3 END; 
: 710 0769 3 
; 711 0770 3 CPAS$K_CARRIAGE_CONTROL_FORTRAN): 
: 712 0771 4 
: 713 14: 4 FAB CFABSV_FTN] = 1; 
3 (716 0773 «3 END; 
s 715 0774 ; . 
; 716 0775 star CARRIAGE CONTROL _NONE J: 
.. Pr 0776 ; ! Do nothing | 
: 718 0777 
3; 719 0778 3 CPASSK SRCRE ERS TAK, SEQUENTIAL): 
: 720 0779 4 
s fer 0780 4 FAB TrABSB_ ORG] = FABSC_SEQ; 
; rs¢ 0781 ; END; 
3 fe 0782 
: 726 0783 3 CPASS$SK PRenai car en RELATIVE): 
3s fas bree 4 
3; 726 0785 4 FAB TFABSB ORG) = FABSC_REL; 
3s Te? 0786 ; END; 
; fe 0787 


es | 
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CPAS$K_ORGANIZATION_INDEXED): 
FAB CFABSB_ORG] = FABSC_IDX; 
END; 
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CPAS$K_DISPOSITION_SAVE]: 
FCB CFCBSV_SAVE) = 
END; 


CPASS$K_DISPOSITION_DELETE): 
FCB CFCBSV_DELETE) = 
END; 


CPAS$K_DISPOSITION_PRINTI: 
BEGIN 


FCB CFCBSV_SAVE] = 
ary FCBSV_PRINT = 5 F 


Ft co san PRINT_DELETE): 


B CFCBS$V_PRINT] = 
B CFCBSVIDELETE] = 7 


CPAS$K_DISPOSITION_SUBMIT): 
BEGIN 


FCB CFCBSV_SUBMIT] = 
co. CFCBS$V_SAVE] = 1; 


CPAS$K_DISPOSITION_SUBMIT_DELETE): 
BEGIN ; 


FCB CFCBSV_SUBMIT] 
Ad CFCBSV-DELETE] 


3 
1; 


CPAS$K_USER_ACTION]: 
BEGIN 


USER ACTION BPV = louhe ts C(1=.1+1)]; 
co. CF CBSV_OSER ACTION) = 


CPAS$K_SHARING_NONE]: 
FAB CFABSV_NIL) = 
END; 


CPASS$K 7 ohio READONLY): 
A$ CrABSV SHRGET] = 


CPAS$K_SHARING_READWRITE): 
BEGIN 


vo 


SRESPASOPEN "633; 
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PASSOPEN2 OPEN procedure ese 1984 01:46:15 AX-11 Bliss-32 V4.0-74 Page 19 P 
tty PASSSOPEN - Open a file 12286874 382 93588: ]} PASRTL. SRC IPASOPEN B35; 1 : 3 1 
; pet? 4 FAB [FABSV_SHRPUT] = 1; 
; 78 B46 4 FAB LFABSV_SHRGET] = 1; 
; 788 Baek 4 FAB LFABSV_SHRDELJ = 1; 
: 789 B48 4 FAB CFABSV-SHRUPD) = 1; 
; 790 0849 END; ¢ 
, 6 T9) 0850 
; 7 0851 CPASS$K_ERROR]: 
ee bees 4 BEGIN 
; rs 0853 4 i? 
; tv 0854 4 ! The ERROR Egresesyes if specified, was already processed 
: 796 0855 4 ! in PASSOPEN2, so just ignore it here. 
s ror 0856 4 = 
; 798 0857 4 1 = .1 + 1; ! Ignore next parameter 
: Ivy 0858 : ND; 
; 800 0859 
; 801 0860 3 CINRANGE , OUTRANGE J: , 
; 802 0861 3 SPAS$IO_ERROR (PAS$_INVARGPAS,O); ! Invalid argument | 
; 803 0862 3 
3; 804 08 3 TES; 
; 805 0864 3 
; 806 0865 2 END; 
; 807 0866 2 
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PASSOPEN2 OPEN procedure 16-Sep-1984 01:46:15 AX=-11 Bliss-32 V4.0-74 Page 20 
1-015 PASSSOPEN - Open a file 1228 8-13Re 12:51:41 PASRTL SREIPASOFENS 03 37 ’ (6) 
; 809 0867 4 
; 810 0868 ' Apply defaults. 
; 811 0869 “= 
; gi¢ 0870 
; 8 0871 + 
> 814 pe r8 ! Default FILE_NAME 
s 813 087 te 
; 816 0874 
; 817 0875 IF NOT .KEYWORDS_SEEN CPASSK_FILE_NAME] 
; 818 0876 ¢ THEN 
; 819 0877 BEGIN 
; Bg0 0878 3 
; 821 0879 1+ , 
3; See 0880 3 : If this is standard file INPUT or OUTPUT, attempt to translate 
; 823 0881 ! PASSINPUT or PASSOUTPUT, respectively. if no translation, use 
> 824 pees : SYSSINPUT or SYSSOUTPUT instead. If not INPUT or OUTPUT, use 
> 825 088 ! file variable name. 
; 826 0884 3 le 
; 827 0885 3 
; 828 0886 3 IF_.FILE_TYPE NEQ K_NEITHER ! neither INPUT nor OUTPUT? 
: 829 0887 3 THE 
; 830 0888 4 BEGIN 
s 831 0889 4 
; 832 0890 4 CAL ; ‘ 
; 833 0891 4 LOGNAM_DSC: BLOCK (8, BYTE], ! Descriptor for logical name 
; 834 0892 4 RSLNAM_DSC: BLOCK (8, BYTE], ! Descriptor for resultant name 
; 835 0893 4 SUBSTITUTE_NAME; ! Address for substitute name 
; 836 0894 4 
; 837 0895 4 IF_.FILE_TYPE EQL K_INPUT 
; 838 0896 4 THEN 
; 839 0897 5 BEGIN 
; 840 0898 5 LOGNAM_DSC CDSC$W_LENGTH] = X%CHARCOUNT ('PASSINPUT'); 
> 84 0899 5 LOGNAM-DSC CDSCSA_POINTER] = UPLIT BYTE ('PASS$INPUT'S; 
; B42 0900 5 SUBSTITUTE_NAME ="UPLIT BYTE ('SYSSINPUT'); 
> 843 0901 5 D 
3; 844 0902 4 
: 845 0903 5 BEGIN 
: 846 0904 5 LOGNAM_DSC CDSC$W_LENGTH] = XCHARCOUNT ('PASSOUTPUT'); 
; 847 0905 5 LOGNAM_DSC CDOSCSA_POINTER] = UPLIT BYTE ("PAS$OUTPUT'S; 
; 848 0906 5 SUBSTITUTE_NAME = UPLIT BYTE ('SYSS$OUTPUT'); 
; 849 0907 4 END; 
; 850 0908 4 LOGNAM_DSC CDSC$B_CLASS] = DSCS$K_CLASS_S; 
; 851 0909 4 LOGNAM_DSC CDSCSB_DTYPE] = DSCSKDTYPE-T: 
; 852 0910 4 RSLNAM_DSC DSC$B_CLASS3 = DSCSKICLASS-S: 
: @ 0911 4 RSLNAM_DSC [CDSCSB_DTYPE] = DSCSK_DTYPE_T; ‘ : 
; 854 0912 4 RSLNAM_DSC CDSC$W_LENGTH] = LNMSC_NAMLENGTH; ! String size 
; 855 0915 4 RSLNAM_DSC CDSCS$A POINTER] = RESULT NAME _STRING; 
; 856 0914 4 IF $TRNLOG (LOGNAM = LOGNAM_DSC, RSCBUF = RSLNAM_DSC) EQLU SS$_NOTRAN 
s #57 0915 4 THEN 
; 858 0916 5 BEGIN 
; 859 0917 5 '¢ a oa 
; 860 0918 5 ! Do the substitution 
; 861 0919 5 te 
> 86 0920 5 FAB CFABSL_FNA) = .SUBSTITUTE_NAME: 
> 86 0921 5 FAB CFABSB_FNS) = .LOGNAM_DSC~CDSC$W_LENGTHJ; ! Can't be > 255 
; 864 $35$ 5 END 
; 865 09 4 ELSE 
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PASSOPEN2 OPEN proced 16-Sep-1984 01:46:15 AX-11 Bliss-32 V4.0-74 Page 21 
1-015 PASSSOP PEN - “Deen a file 12-8 08- 1 3be 12:51:41 PASRTL.SRC JPASOPEN 83551 . (6) 
; 866 0924 BEGIN 
; 867 83 5 
> 868 9 § "Use Pascal specific name 
; 869 09 5 in 
; 870 0928 5 FAB peat. FNA] = .LOGNAM_DSC ppscss polaris 
; gf 4 3 ? BND: FABSB_FNS] = .LOGNAM_DSC CDSC$WLLENGTHJ; ! Can't be >255 
3 He 0931 END; 
; 874 B36 
$ 18] O37 r -FAB CFABSL_FNA] EQL 0 ! No name given yet? 
; 877 0935 IF .FCB CFCBSV_EXTERN] ! Filename is file variable name 
; 878 0936 3 THEN 
; 879 0937 4 BEGIN 
; 880 0938 4 LOCAL 
: 881 0939 4 PFD: REF $PASSPFD_FILE_DESCRIPTOR; 
: 882 0940 4 PFD = .FCB CFCBSA_PFDJ; 
3; 883 0941 4 FAB CFABS$B_FNS] = CHSRCHAR (PFD pprost. -NAMEJ) ; 
> 884 0942 4 FAB CFABSL_FNA] = PFD CPFDST_NAME] + 
; 885 0943 4 END 
; 886 0944 3 ELSE 
; 887 0945 4 BEGIN 
; 888 0946 4 FAB CFABSV_TMD) = 1; ' No file e name, aa marked for delete 
; 889 0947 4&4 FAB CFABSB_FNS] = %CHARCOUNT ('PASNONAME.T 
: 90 0948 4 FAB CFABSL_FNA] = UPLIT BYTE ('PASNONAME.TMP"); 
; 891 0949 3 END; 
; 892 0950 2 END; 
> 893 0951 2 
> 894 0226 2 + 
3 895 0953 2 i Default DEFAULT_FILE_NAME 
; 896 0954 2 ie 
3; 897 0955 2 
; 898 0956 3 IF (NOT .KEYWORDS_SEEN CPASSK_DEFAULT_FILE_NAMEJ) AND (.FCB CFCBSV_EXTERN]) 
: 899 0957 2 THEN 
; 900 0988 3 BEGIN 
; 901 0959 3 FAB CFABSB_DNS] = XCHARCOUNT ('.DAT'); 
3. 92 0960 3 be CFABSL_DNA) = UPLIT BYTE (".DAT"); 
: 903 0961 2 END; 
: 904 0962 2 
; 905 0963 2 '¢ 
: 906 0964 2 ' Default HISTORY 
: 907 0965 2 - 
: 908 0966 2 
; 909 0967 2 IF NOT .KEYWORDS_SEEN CPAS$K_HISTORY] 
; 910 0968 ¢ THEN 
; 911 0969 BEGIN 
: 912 0970 3 
s 915 0971 3 "pefault is NEW 
: 914 0972 3 Ho 
: 915 097 ; FAB CFABSV_GET] = 1; 
:; 916 0974 FAB CFAB$V_PUT] = 1; 
: 917 0975 3 FAB CFABSV-TRN] = 1; 
; 918 0976 ; FAB CFABSV_DELJ = 1; 
3; 919 0977 FAB CFAB$SV_UPDJ = 1; 
: 920 978 END; 
; 921 979 
; 922 0980 '¢ 


r 
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PASSOPEN2 OPEN procedure 16-Se 1984 01:46:15 VAX-11 Bliss-32 V4.0-74 Page 22 F 
att: PASSSDPEN - Open a file 12780871382 12:51:41 LPASRTL SRE SPASOPEN? 03 31 . (6) 1 
; 923 0981 ! Default ACCESS_METHOD ; 
: 924 404 fe ; 
s 92s 09 ; 
: 926 0984 IF NOT .KEYWORDS_SEEN CPASSK_ACCESS_METHOD] 

; 927 0985 THEN 

; 928 0986 BEGIN 

; Fey 0987 + 

; on 0988 ! Default is SEQUENTIAL 

; 931 0989 \- C 
; 838 0990 FCB CFCBSV_SEQUENTIAL] = 1; 

: 887 444 a FAB$V_SQ0) = 1; ! Optimize network access 
; oe 84 ELSE IF .FCB CFCBSV_TEXT] AND NOT .FCB CFCB$V_SEQUENTIALJ 
3 ote 9454 SPASSIO_ERROR (PAS$_TEXREQSEQ,0); ! Textfiles require sequential organization and access 
; 939 0997 '¢ 

; 940 0998 ' Default RECORD_TYPE 

; 941 0999 7° 

; ak 1000 2 

; 94 1001 2 IF NOT .KEYWORDS_SEEN CPASS$K_RECORD_TYPE] 

> 944 1002 § THEN 

> 945 1003 If .FCB CFCBSV_TEXT] OR .FCB CFCBSV_VARYING) 

; 946 1004 2 THEN 

3 947 1005 FAB CFABSB_RFM] = FABSC_VAR 

; 948 1006 ELSE 

: 949 1007 FAB CFABSB_RFM) = FABSC_FIX; 

; 950 1008 2 USR_RFM = .FAB CFABSB_RFM); 

> 951 1009 2 

; 952 1010 2 te 

3 933 1011 2 ! Default CARRIAGE_CONTROL 

; 954 iste 2 le 

; 955 1013 2 

3; Ve 1014 2 IF NOT .KEYWORDS_SEEN CPASS$K_CARRIAGE_CONTROL] 

3 Dr 1015 2 THEN 

; 958 1016 2 IF .FCB CFCBSV_TEXT) OR .FCB CFCBSV_VARYING) 

; 959 1017 2 THEN ‘ 

; 960 1018 2 FAB CFABSV_CR] = 1; ! LIST is the default here 
; 961 1019 2 

: 962 1020 2 i+ 

; 963 1021 2 ! Default DISPOSITION 

: 964 19s¢ § te 

: 965 102 

; 966 10S¢ IF NOT .KEYWORDS_SEEN CPAS$K_DISPOSITION] 

; 967 1025 TH 

; 968 1026 If NOT .FAB CFABSV_TMD] ! Not a temporary? 

; 969 1027 3 

: 970 1028 FCB CFCBS$V_SAVE] = 1; 

; 971 1029 § 

: 97 1030 '¢ 

; 97 1031 ! Default ORGANIZATION. 

3: 974 1336 ie 

; 975 103 

: 976 1034 IF NOT .KEYWORDS_SEEN CPASSK_ORGANI ZATION] 

; 977 1035 THEN 

: 978 1036 FAB CFABSB_ORG) = FABSC_SEQ ! SEQUENTIAL 

: 979 1037 ELSE IF .FCB CFCBSV_TEXT) AND (.FAB CFABSB_ORG) NEQ FABSC_SEQ) 


rocedure 
PEN = Open a file 
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PASRTL.SRCJPASOPEN2.B32; 1 


EN 
SPAS$IO ERROR (PAS$ magma ct ! Textfiles require sequential organization and access 
USR_ORG = .FAB CFABS$B_ORG 


14 
Default SHARING 


i er ORGANIZATION:=SEQUENTIAL (explicitly), and if the ae is shared 
Z so that there is at least one writer, then set FABSV_UPI. 


IF (, KE Ywones SEEN CPASSK_ORGANIZATION] AND 
_ CFABSB_ORG] EQL™FABS$C_SEQ)) 


N 
IF .FAB CFABSV_SHRPUT) OR 
“(.FAB CFABSV_PUT] AND .FAB CFABSV_SHRGET]) 


FAB CFABSV_UPI) = 1; 
IF NOT .KEYWORDS_SEEN CPASS$K_SHARING] 
IF _<FCB CFCBSV_READ_ONLY] 
FAB CFABSV_SHRGET) = 


ELSE 
FAB CFABSV_NILJ = 
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PASSOPEN2 OPEN 
nABts PASSS 
; 1010 1067 
; 1011 1068 
: Ste 1069 
3; 101 1070 
; 1014 1071 
; 1015 19t6 
3; 1016 107 
3 1017 1074 
; 1018 1075 
; 1019 1076 
; 1020 1077 
: 196] 1078 
3; 10 ; 1079 
; 195 1080 
3: 1024 1081 
: 1025 1Se4 
: 1026 108 
: 1027 1084 
: 1028 1085 
: 1029 1086 
; 1030 1087 
: 1031 1088 
; 193% 1089 
3 103 1090 
3; 1034 1091 
: 1035 109 
: 1036 109 
3; 1037 1094 
; 1038 1095 
; 1039 1096 
3; 1040 1097 
3 1041 1098 
: 1042 1099 
: 1043 1100 
3 1044 1101 
3 1045 1102 
: 1046 1103 
: 1047 1104 
; 1048 1105 
3 1049 1106 


b 
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PEN = Open a file 
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74 
PASRTL.SRCJPASOPEN2.B32;1 
‘+ 
; check for conflicts 
14 
Check for incompatible access method 


IF NOT ¢ 
(.FCB pF cBSY SF QUENT IAL) OR 
(.FCB CFCBSV_DIRECT] AND 
((. FAB pe ABSE ORG) EQL FABSC_REL) OR 
((, FAB CFABSB_ ORG] EQL FABSC_SEQ) AND (.FAB CFABSB_RFM] EQL FABSC_FIX)))) OR 
(.FCB CFCBSV_KEYEB) AND 
—_ (.FAB CFABSB_ORG] EQL FABSC_IDX))) 
SPASSIO_ERROR (PASS$_ACCMETINC,O); ! Incompatible access method 


'¢ 


; Check for incompatible DISPOSITION. 


IF .FAB CFABSV_TMD) AND 
(FCB CECBSV_ SAVE OR .FCB CFCBS$V_SUBMIT 
-FCB CFCBS$VZOLD_FILE] OR .FAB CFABSV_CIF 


HEN 
SPAS$IO_ERROR (PAS$_FILNAMREQ,0); 


i -FCB CFCBSV_PRINT] OR 
File name required 


1+ 
: Check for incompatible RECORD LENGTH. If creating non-text file 
with fixed-length records, RECORD_LENGTH and component type must match. 


IF NOT .FCB CFCBSV_TEXT] AND NOT .FCB CFCBSV_OLD_FILE] AND 
(.FAB CFABSB_RFM) EQLU FABSC att AND 
(.USR_USZ NEGU .RAB CRAB$W_USZ]) 


IF NOT .FCB CFCBSV_OLD_FILE) 
THEN 
HEN 

SPAS$IO_ERROR (PAS$_RECLENINC,0); 


———_—_—_—_—_——_- 
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PASSOPEN2 OPEN procedu re 16-Sep-1984 01:46:15 AX-11 Bliss-32 Vv Page 25 P 
1815 PASSSOPEN = open 9 file 1e=8ep=1986 feistset — EPASRTL’SReSPASOPENS.059;1 8) 1 
; 1051 1107 
: 103¢ 1108 i er key descriptor block is present, allocate and fill in KEY XABs. | 
; 105 1109 ie 
3: 1054 1110 
; 1055 1111 BEGIN 
; 1056 1436 
; 1057 111 LOCAL 
s 1938 Wy PFD: REF SPASSPFD_FILE_DESCRIPTOR; ! Pascal File Descriptor 
; 1060 1116 PFD = .PFV CPFVSA_PFD); 

: 1061 1117 

; 1966 1118 IF .PFD CPFDSA_KDB) NEQ 0 

; 106 1119 TH 

> 1064 1120 FILL_KEY_XABS (PFV CPFVSR_PFV], 

> 1065 1121 3 FCB CFCB$R-FCB, é 
; 1066 1122 ; PFD CPFDSR_PFD] + .PFD CPFDS$A_KDB], ! Resolve self relative 
: 1067 1123 XAB_SUM, 

: 1068 1124 3 XABREY_ADDR 

> 1069 1125 3 KABKEY-SIZE); 

3; 1070 1126 3 

; 1071 1127 2 END; 

; Ore 1128 § 

3; 107 1129 1+ ; 

; 1074 1130 2 ! Fill in remaining fields in RMS control blocks 

3; 1075 1131 2 !- 

3; 1076 1136 2 

3 1077 ins 2 FAB CFABSV_NEF) = 1; ! Don't position to EOF 

; 1078 1134 2 FAB bP ABS _DFW) = 1; ' Deferred write speeds up Relative and Indexed 
: 1079 lias 6 RAB CRAB$V_RAH] = 1; ! Read-ahead speeds up sequential 

; 1080 1136 2 RAB ERABSV _WBH) = 1; ! Write-behind speeds up sequential 

3; 1081 1137 2 

: 1082 1138 2 '¢ 

3; 1083 1139 2 i Set maximum record size for all but vee tebtenLengen sequential files, 
5 Ione sae § g unless the user specified RECORD LENGTH 

3; 1086 1142 2 IF pose. ong) NEQ FABSC_SEQ OR 

: 1087 1143 2 FAB FABSB_RFM) EQL FABSC”FIX OR 

: 1088 1144 2 -KEYWORDS_ CEEN CPAS$K_RECORD_LENGTH) 

; 1089 1145 2 HEN 

; 1090 1146 § FAB CFABSW_MRS) = .USR_USZ; 

3 -1091 1147 

; 1092 1148 2 

3; 1093 1149 2 + 

3; 1094 1150 § i If USER_ACTION was specified, call the user routine to do the 

: 1095 1151 i open and connect. Otherwise. do it here. 

: 1096 1136 2 ie 

: 1097 115 

; 1098 1154 BEGIN 

: 1099 1155 LOCAL 

; 1100 1156 STATUS; 

: 1101 1157 

: 1106 1158 IF .KEYWORDS_SEEN CPASS$K_USER_ACTION] 

; 110 1159 THEN 

: 1104 1160 4 GIN 

: 1105 1161 4 LINKAGE 

Zs 1108 1186 4 USER_ACTION_LNK = CALL (REGISTER=1,STANDARD,STANDARD, STANDARD) ; 
: 110 1165 4 STATUS ="USER_ACTION_LNK (.USER_ACTION BPV [0], ' Address 


Pe renner 


PEN = Open a file 


PASSOPEN2 OPEN procedure 
7-61 PASSS 
: 1108 1164 4 
3 1109 1165 4 
; 1110 1168 4 
: 1111 1167 & 
3 Wg 1168 4 
s 331 1169 3 
3 1116 1170 4 
3 1115 1171 4 
; 1116 1128 4 
3 1117 117 4 
3; 1118 1174 4 
3 1119 1175 4&4 
; 1120 1176 $5 
s 1121 1177 6 
“se ¢ 1178 6 
s 112 1179 6 
: 1124 1180 7 
3 1125 1181 8 
: 1126 1186 8 
3 1127 118 G 
: 1128 1184 8 
3 1168 1185 7 
; 1130 1186 6 
3: 1131 1187 6 
: 1132 1188 4 
3 1133 1189 4 
: 1134 1190 4 
3 1135 1191 4 
: 1136 1192 4 
3; 1137 1193 4 
3; 1138 1194 4 
; 1139 1195 4 
3; 1140 1196 4 
3 1141 1197 4 
3 1142 1198 4 
3 1143 1199 4 
3 1144 1200 4 
3 1145 1201 5 
; 1146 1202 5 
3 1147 1203 5 
3 1148 1204 5 
3 1149 1205 5 
: 1150 1206 5 
: 1151 1207 5 
: 1126 1208 5 
: 115 1209 5 
3 1154 1210 6 
: 1155 hs) 
: 1156 sig 7 
3; 1157 121 7 
3; 1158 1214 8 
: 1159 1215 7 
; 1160 1216 7 
3; 1161 1217 § 
: 1162 1218 4 
: 1163 1219 4 
3; 1164 1220 4 


ELSE 


END 
BEGIN 


+ 
Open o 


STATUS = 
BEGIN 


L 
DO ¢ 


r create file. 


( 


L 
SSSTATUS; 
$S$STATUS = 


4-Sep-1984 
ER ACT JON BPv Ci], 
8:8.8-8 


Pfv$R_PFVI); 


<@wouw — 


hs A CFCBSV_OLD_FILE) 
SOPEN (F AB=F AB C0,0,0,0)) 


SCREATE (FAB=FAB [0 
re (.SSSTATUS OR (.$ 


. S$STATUS 


'¢ 


1-85-19 4 Ore 1? 


AX-11 Bliss-32 V4.0- 
PASRTL.SRCJPASOPEN2. 


' Environment 
' FAB address 
' RAB address 
! PFV address 


0,0,0)))) 
$STATUS NEQU RMS$_ACT)); 


! If we failed the open because we might not have been granted 
write permission to the file, try for just read permission. 


IF NOT . 
THE 


STATUS 


IF (.STATUS EQLU RMS$_PRV) AND 
(.FCB CFCBSV_OLD_FILE] OR .FAB CFABSV_CIFJ) AND 
! PUT permission requested 


a he CFABSV_PUTI 
BEGIN 
14 


i This was a SOPEN and we did not get permission to 
Set the FAC bits to just GET and 


' open the file. 


try the SOPEN again. It might also 
FAB CFABSB_FAC] = FABSM_GET;! Ask for only GET access 
FAB CFABSV_NILJ) = 0; ! Allow other sharing 2 
FAB CFABSV_NAM) = 1; ' Use NAM block to reopen file 
STATUS = ( 
BEGIN 
SSSTATUS; 
DO (S$STATUS = SOPEN (FAB=FAB (0,0,0,0))) 
UNTIL ($$STATUS NEQU RMS$_ACT): 
. S$STATUS 
END); 
END; 


74 
32;1 


roe 


— = — 
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PASSOPEN2 P rocedure 16-Sep-1984 01:46:15 AX-11 Bliss-32 V4.0-74 Pa 7 Ff 
att A sbPEN - Open a file 1e-8ep-19 4 12:51:41 PASRTL.SRCJPASOPEN2.B32;1 ~ Bs 1 
1165 


| 
! If open/create succeeded, enable prompting on this file if 
} it qualifies. Then connect the record stream. 


IF_.STATUS 
THEN 
BEGIN 


4 

: Set FCBSV_FOD if file is on a file oriented device. This is 

! used by SPASSRMS_OP to indicate that operations that fail with 
} RMS$_ACT can be retried. 

if ~BLOCK CFAB CFABSL_DEV], DEV$V_FOD;4, BYTE] 


FCB CFCBSV_FOD) = 1; 


09090909 SI NINN NN NNN SIO OOO 
WN" O DONAUES WN OOONe 


le is a terminal, and if preset ing Seeg been 
led, specify that look-ahead on this file will 
ate prompt output on PROMPT_ENABLEd files. 


A 
3a 
Ww 

oo —« 
—~—o — 


IF .FCB CFCBS$V_TEXT] AND 
THEer oe CFAB-CFABSL_DEV), DEVSV_TRM;4, BYTEJ 


BEGIN 
FCB CFCBSV_INITIATE_PROMPT] = 1; 


'+ 

! We want to enable prerrece on a file which is a terminal 
! and which has the LIST (CR) carriagecontrol attribute, 

, but which is not spooled and which can accept output. 


OOODOOOOOO@MMWMD 


IF .FAB CFABSV_CR] AND .FAB CFABSV_PUT] AND 
-BLOCK CFAB-CFABSL_DEVJ, DEV$V_ODV;4, BYTE] AND 
aa -BLOCK CFAB CFABSL_DEV)], DEV$V_SPL;4, BYTE] 
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NNN NNN NO AAA A AAA A MUMUIMUIUIUIUIU ES BEB EEE EE BWWNononononoronend =e 

NOUS WN 0 OONOA UE WIN 0 OONO UE WIN O ODA UE WR O OONOAOU EWN OOONOUEWWN— Zz 
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0 BEGIN 

0 SPASSRMS_OP (SCLOSE (FAB=FAB £0,0,0,0])); 

07 FAB CFABSB_RAT] = FABSM_PRN; ' Set print file format 
$08 FAB CFABSB_RFM) = FABSC_VFC; ' Set VFC format : 

09 FAB CFABSB_F = 2; ' Set 2 byte control field 
210 FAB CFABSV_NAM] = 1; ! Use NAM block inputs ' 
$13 STATUS = SPASS$RMS_OP (SOPEN (FAB=FAB (0,0,0,0])); ! Reopen file 

1 '+ 
zi8 ! If SOPEN failed, assume that we can't set up this 
sie } file for prompting. Therefore, go back to CR format. 

217 

218 IF NOT .STATUS 

219 THEN 

220 BEGIN 

221 FAB CFABSB_RAT) = FABSM_CR; 


BLi {34s -32 V “138 
-Sep-1984 12: $1: PASRTL” SRC PASOPEN -B32;1 


' Control area 


K 12 
PASSOPENS OPEN procedure 16-Sep-19 r 1:46 Ax-11 
1-01 PASSSOPEN = Open a file 14-5 
1 2 1 78 FAB FFABSB_ REM] = FABSC_VAR; 
: 1 127 FAB CFABSB FSz = 0; 
: 1224 P 1280 STATUS = SPASSRMS OP ( 
+ 1225 1281 SOPEN (FAB=FAB [0,0,0,0])); 
1 $ 1 : END 
31 1 ELSE 
: 1228 1284 BEGIN 
: 1229 1285 
; 1250 1 Hy '+ 
$ ' ; | tf i j noon for prompting successful. 
:14 1289 
5 1234 1 oe FCB CFCBSV_PROMPT_ENABLE] = 
: | 5 91 RAB CRABSL-RHB] ="FCB CFCBSW_ lbRonpt CC); 
: 1237 1 3 $ END; 
: 1 38 1294 § END; 
+ 1239 1295 END; 
: 1240 1296 4 END; 
: 1241 1297 4&4 
31 4@ 1298 4 '+ 
: \$¢ 44 4 ' If the OPEN/CREATE succeeded, do the CONNECT. 
+ 1244 1300 4 in 
> 12465 1301 4 if .STATUS 
> 1266 1308 4 THEN 
: 1267 1303 5 DO (STATUS = $CONNECT (RAB=RAB [0,0,0,0])) 
: 1248 1304 4 UNTIL (.STATUS OR (.STATUS NEQU RMS$_ACT)); 
+ 1249 1305 3 END; 


roe 


4 


IF _-FAB CFABSV_CIF] AND .FAB CFABSL_STS] NEQU RMSS_CREATED 
FCB CFCBSV_OLD_FILEJ = 1; 


'¢ 
If we opened an existing file, get some attributes. 


IF .FCB CFCBSV_OLD_FILEJ 
THE 
BEGIN 


PMMIMOPOPONOPOP PPO fonononononornonoponofnononononony 
b+ 0h 4 tet eter $m i Se Pe eS 8 


SSSESRAN= WDONOAOVUEWN —$O OONOUSWN—"ODOONOW 


'¢ 
Check organization. 


DONAUES WN —O OONAUSWWR OO OONOUS Wh 


IF .KEYWORDS SEEN CPAS$K_ORGANIZATION] AND 
.FAB CFAB$B_ORG) NEQ™.USR_ORG 


EN 
SPASSIO_ERROR (PAS$_ORGSPEINC,0); ! ORGANIZATION specified inconsistent 
If .FCB CFCBSV_TEXT] AND (.FAB CFABSB_ORG) NEQ FABSC_SEQ) ; 
SPASSIO_ERROR (PAS$_TEXREQSEQ,0); ! Textfiles require sequential organization and access 


NMororonrororor 
SSVsessces 
BEEBE EEE EWN poronopnon 


WWPonorn 
oo 
—o 


'¢ 
Check recordtype. 


ee ii i en ee ee ee ee ee ee ee ee ee ee ee 
ee ee ee ee ee ee ee ee ce ce ce ee ee el ee ce el ce ce ce el ce ce ce ce ee ee ec ee ee ee ed eed eed 
AANA NIAAA AAAI NWN AON AAA NIAAA AANA WW 


Be Se Se Se Se Be we Se Ge Fe Ge Fe Se Ge Se Se Se Se Se Se Ge Se Fe Fe Ge FH Se Ge Se oe Se Gs ee SH Fe Se Se Se Se oe Ge SF Ss Oe BH Ss Se SH Se Se Oe Se Se Be es Sees 


WANNA WWIAI EB ANNAN ANIA NWI IPSPOPIPUNINININININPONIPONINPUININIW 


AQAA II 
M—OOODNOUE WOO 


WANA 
oooooo 
NOME WI 


IF ,KEYWORDS_ SEEN CPASS$K_RECORD_TYPE) 


12 
PASSOPEN2 OPEN procedure 18-Se 1984 01:46:15 AX-11 Bliss-32 V4.0-74 9 2 
att PASSSOPEN = Open a file 1e-8ep-19 4 9558913 PASRTL.SRC IPASOPEN é $3.1 _ (3) 
1 0 4+ 
¢ 4 If open/create or connect failed, signal an error 
4 09 é 
5 10 IF NOT .STATUS 
56 11 
57 \¢ SELECTONE .STATUS OF 
$ i - 
60 15 CRMSS_FNF, RMS$_DNF, RMS$_DEV] : 
61 16 SPAS$SIO_ERROR (PAS$_FILNOTFOU); ! File not found 
$e 18 CRMS$_FNM, RMS$_NOD, RMS$_DIR, RMS$_TYP, RMS$_VER, RMS$_SYN] : 
19 SPASSIO_ERROR (PAS$_IRVFILSYN); ! Invalid’ filename syntax 
2 COTHERWISE): 
§ SPASSIO_ERROR (PAS$_ERRDUROPE); ! Error during OPEN 
TES; 
END; 
'¢ 
¢ : If HISTORY := UNKNOWN has opened an existing file, indicate in the FCB 


<a> 


M12 
PEN2 OPEN procedure 16-Sep-1984 01:46:15 AX-11 Bliss-32 V4.0-7 
n8ts 1oxsee- 18s 93:88:13 


4 Pa 30 | 
PASSSOPEN = Open a file PASRTL.SRCJPASOPEN2.B32;1 ~ (9) | 


; 1308 1363 4 BEGIN 

5 : 4 ! rf: ? IF .USR_RFM NEQ .FAB CFABSB_RFM) 

3; 1311 1366 5 IF NOT ((.USR_RFM EQL FABSC_VAR) AND 

; ! \¢ ! of 2 (.FAB CFABSB_RFM] EQL FABSC_VFC)) 

: i \3 : 9 4 SPASSIO_ERROR (PASS$_RECTYPINC,0); ! Inconsistent record tyoe 

3; 1316 1371 ; 

: 1317 1 Le + 
; 13518 137 ! Check record length. 

: 1319 1374 !- 
: 1320 1375 

; 135) 1376 + 

; 1322 1377 3 : If not a disk or terminal, use the blocksize as the maximum recordsize 

3 13s? 1378 3 (if not there already). 
: 1325 1380 : IF (NOT .BLOCK CFAB CFABSL_DEV], DEV$V_RND;4, BYTE]) AND 

; 1356 133) $ \ ad -BLOCK CFAB CFABSL_DEVJ, DEV$V_TRM;4, BYTEJ) 

; 1328 1383 3 IF .FAB CFABSW_MRSJ EQL 0 

: 1329 1384 3 T 
3; 1330 1385 3 FAB CFABSW_MRS] = .FAB CFAB$W_BLSJ; | 
3; 1331 1386 3 
3; 1332 1387 3 IF .FAB CFABSW_MRS] NEQ 0 
3 1333 1388 3 THEN | 
: 1334 1389 3 IF .FAB CFABSB_RFM] EQL FABSC_FIX 

; 1335 1390 3 THEN 

3; 1336 1391 4 BEGIN 
3 1337 1398 4 If .FCB CFCBSV_TEXT] 
: 1338 1393 4 THEN 
3; 1339 1394 5 BEGIN 
3 1340 1395 § IF .KEYWORDS_SEEN CPAS$K_RECORD_LENGTH] AND 
3 1341 1396 6 (.USR_USZ NEQ .FAB CFABSW_MRSJ) | 
3; 1342 1397 5 HEN 
3 1343 1398 5 SPASSIO_ERROR (PAS$_RECLENINC,0); 
3 1344 1399 5 N 
3; 1345 1400 4 ELSE IF (.RAB CRABSW_USZ] NEQ .FAB CFABSW_MRSJ) OR 

3 1346 1401 5 (,USR_USZ NEG .FAB CFABSW_MRS)) 

3 1347 1402 4 HEN 

3; 1348 1403 4 SPASSIO_ERROR (PAS$_RECLENINC,0O); 

3; 1349 1404 4 D 
3; 1350 1405 3 ELSE 

3; 1351 1406 4 BEGIN 

; 1326 1407 4 IF .FCB CFCBSV_TEXT] OR .FCB CFCBSV_VARYING] 

3; 135 1408 4 THEN 

3 1354 1409 5 BEGIN 

3; 1355 1410 5 IF .KEYWORDS_SEEN Cf * %* RECORD LENGTH] AND 

: 1356 1411 6 (,USR_USZ GTRU .. + CFABSW_ARS)) 

3: 1357 cit 5 N 

3 1328 1937 : SPASSIO_ERROR (PAS$_RECLENINC,0); 

3; 1360 1415 4 ELSE JF (.RAB CRABSW_USZ] GTRU .FAB CFABSW_MRS]) OR 

3; 1361 1416 5 (,USR_USZ GTRU .FAB CFABSW_MRS)) 

: 1308 1417 4 THEN 

3; 136 1418 4 SPASS$IO_ERROR (PAS$_RECLENINC,0); 

3 1364 1419 3 END; 


ees ed 


5 


90 
91 
92 
93 
94 
95 


$1984 01:46:15 AX-11 Bliss-32 v4. p 1 
198 12:51:41 *Spae nine (3) 


EN preseeure 1 
SSSOPEN = Open a file 1 PASRTL’ SRC JPASOPEN “hs 31 


— 


1+ 
i Jf textfile, get length from existing file. 
IF _ .FCB CFCBSV_TEXTJ 

IF .FAB CFABSW_MRS) NEQ 0 

THEN 


RAB CRABSW_USZ] = .FAB CFABSW_MRSJ 
ELSE 


IF .XAB_FHC CXABS$W_LRLJ GTRU .RAB CRABSW_USZ] 
ian RAB CRABSW_USZ] = .XAB_FHC CXABSW_LRL); ' 


| at ek et et et et el et et et et ee et te 
WNIANNWNWinornononororerorernony 


AES WNM OO OONAULS WR OO ONOUS WN Oo 


14 
g Check for incompatible access method 


NTIALJ) OR 
TJ AND 
ORG] 


G] EQL FABSC_REL) OR 
as reese one) Eat FABSC"SEQ) AND (.FAB CFABSB_RFM] EQL FABSC_FIX)))) OR 
-FAB CF 1SS8 ORG] EQL FABSC_IDX))) 

Le 


RROR (PAS$_ACCMETINC,0); ! Incompatible access method 


Det ek et et ee ek hh 


WANA NANA 


END; 
'¢ 
i For both old and new files, if direct access has been specified, see if 
a device will allow it. 
IF .FCB CFCB$V_DIRECTJ 
THEN 


IF (NOT .BLOCK CFAB CFABSL DEV], DEV$V_RND;4, BYTEJ]) OR ! Random access? 
(.NAM CNAMSV_PPF J) ' Brocess-permanent file? 


EN 
SPAS$IO_ERROR (PAS$_ACCMETINC,O); 


Be Se Se Se Se Se Se Se Se Ge Se Oe Se Se Oe Oe He Oe oe Be Oe Se Be SH Se Oe Se SF Ss Se SF Se HSH Se SFOs SH Se SH Ss Se Se tee 

et ee ee ee ee me ee ce ce ee ce a ee ee ee ee ed ed ed 
SOoCooooowvno 
SSPE LSSeVE 


BRESLIN 
FWN — OOONOULSWN CO VOOo~n 


ooo 
oon 
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| PASSOPEN2 OPEN procedure 16-Sep-1984 01:46:15 AX-11 Bliss-32 V4.0-74 P 32. 
1-015 PASSSOPEN - Open a file 14-Sep-1984 12:51:41 PASRTL SRE IPASOPEN? 03 31 298 10). 
4 46 14 
2 re } a the file is indexed organization, get information about the defined 


3 3 
3; 1 
3; 3 
3; 3 
3; } 
; 7 
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. 3 
3; Y 
; 4 
3; 3 
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37 
3; 7 
:.% 
5 Y 
; 1 


* eys. 


N i 
CHECK_KEY_XABS (PFV CPFVSR_PFV 
FCB CFCBSR_FCB 

XABREY_ADD 

XABKEY~S1Z 


AUS WN—-OVDOnouw 


'¢ 
: If this is the implicit open of INPUT or OUTPUT, set the status bits to 
cause an implicit RESET or REWRITE appropriately. 


If _(-FILE_TYPE EQL K_INPUT) AND NOT .PASSSGV_INPUT_OPENED 


BEGIN 
PAS$$GV_INPUT_OPENED = 1; } 

PFV CPFVS$V_VALID] = 0; ! File variable not valid 

FCB CFCBSV_LAZY] = 1; ! Implicit GET on next access 
FCB CFCBSV_INSPECTION) = 1; ! In Inspection mode 


ND 
IF (.FILE_TYPE EQL K_OUTPUT) AND NOT .PAS$$GV_OUTPUT_OPENED 


INPUT has been opened 


BREE EEE EE EWAN NNN NPOPNPINNNPER) 2 2 2 OS OS OS Se 


ELSE 
THEN 
BEGIN 
PASS$S$GV_OUTPUT OPENED = 1; ! OUTPUT has been opened 
FCB CFCBSV_GENERATION] = 1; i In Generation mode 
FCB CFCBS$V-EOF) = 1; i ate 
PFV CPFVSV_EOF DEFINED] = 1; ! EOF function defined 
PFV CPFV$V_-VALID) = 1; ! File variable valid 
PFV CPFVSV_DFB) = 0; ! File buffer undefined 
os CRABSV_TPT] = 1; ! Truncate on first $PUT 
ELSE 
BEGIN 
°¢ 
: User must do RESET or REWRITE before using file. 
PFV CPFV$V_EOF DEFINED] = 0; ! EOF function undefined 
PFV CPFVS$V_VALID) = 1; ! File variable valid 
oe PFV$V_DFB) = 0; ! File buffer undefined 


'¢ 
Allocate the record buffer, if necessary, and fiil in the UBF address. 


2S AAA MMAMNMAMNIMAY IY 
MEWN OO OONOA UE WN OOD NAU ES INN $ O ODNOAUEWN (OO DNOUES WN" OOONOUS WN 


IF .FCB CFCBSV_TEXT) 
THEN 


o 


BEGIN 
RAB CRABSL_UBF] = PASS$GET_VM (PFV CPFVS$R_PFVJ, .RAB CRABS$W_USZ]); 
& CFCBSV-DYNAMIC_UBF] = T; 


a ee ee ek tt ed dd ed 
MN tO | MQOODODOOOO 000 O00 0000000000000 00 0909 09 09 SI NSI SN NNO Oo 


—QOWNAUNE WN ODD NADNEWN SO OONOUEWN HOOD NOUEWR OOO~ 
WANA PINININPIPINPINI WIAA III NAIA NIAAA IRI ANNWNINI NIPPON NONPONONPO PON NPoNoNoNoporoprofrornyg 


Fae ae et ok et et el eh ek ee ek ek ek ee ek ee et et tt et et ee et et et et 
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13 
PASSOPEN2 OPEN procedure : 1hege -19 
at PASSSDPEN = Open a file 12-Sep-19 


cooo 
EP 


“FCB CFCBSAq 


14 
: If the file has no name (TMD) then zero the expanded and resultant 
name strings. 


Pe 2 Fae IF .FCB CFCBSV_VARYING) 

470 5 RAB CRABSL_UBF] = .PFV CPFVSA_BUFFER] + 2 
472 5 RAB CRABSL_UBF] = .PFV CPFVSA_BUFFER); 
tbe 2 + 

475 3¢ i Set up record pointers in FCB 

239 33 B 

478 53 FCB CFCBSA_RECORD_BEG] = .RAB CRABSL_UBF); 
479 23 FCB AE SS = RAB + ten $F 
480 5 FCB LFCBS$L_RECO NJ = .RAB LRABS$W_USZJ; 
rt 23 FCB CFCB$A_REC DJ = RECORD_CUR] + .FCB CFCBSL_RECORD_LEN); 
483 53 

484 53 

485 53 


IF .FAB CFABSV_TMD] 
THEN 


BEGIN 
NAM CNAM$B_ESL] 
NAR CNAMSB_RSLJ 


OO 000000000 
NOUSWN—OOONO 


ELSE 


woovowond 


‘4 
: Allocate space for the resultant name string, move the local string 
to the allocated one, and change the RSA pointer. 


'¢ 
! Translate the logical name PAS$SLINELIMIT to find a possible 
! Linelimit. 


Wale abeal al al eal ab al eal eal abel ab al ab vabvalvalealvalval-abval al al me ee et ee ae ae ae oP oF oF oF oF oF 
CONOA UE WIN OOD NAME WN O OD NOAUE WN O ODNOAUE WN (OO OONAUESWR—"OOONOUL WWI 
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NIAAA ANNA ANIA PIPININPIPININININIWN NADI PIP NINININIWWINIWINIO PPO POOP nononononononononofnony 


98 

99 

00 

01 

02 GIN 

03 NAM CNAMS$L_RSA] = PASSSGET_VM (PFV CPFVSR_PFVJ, .NAM CNAMSB_RSLJ); 
04 CHSMOVE (.NAM CNAMSB_RSLJ, RESULT_NAME_STRING, «NAM CNAMSL_RSAJ); 
33 rc CFCBSV_DYNAMIC_RSN] = 1; !“Indicate dynamic resultant name 
07 

08 '+ 

09 ! Set Linelimit. 

rf ‘ 

\¢ FCB CFCBSL_LINELIMIT] = -1; ! Initially indicate infinite Limit 

1 a CFCBSV_TEXT) ! If textfile then look at PASSLINELIMIT 
16 BEGIN 

17 OCAL 

18 LOGNAM_ DSC: BLOCK (8, BYTE), ! Descriptor for logical name 
¥ LIMIT_BSC: BLOCK C8, BYTE); ! Descriptor for Limit string 
5 

22 

23 

24 


rocedure 


PASSSOPEN - Open a file 


OPEN 


PASSOPEN2 


1-015 


! Maximum resultant string length 
If 


! Returned Length 
LINELIMITIJ, 
4 bytes 


A 
Pp 
STRING; 
Otherwise set Linelimit 


ed decimal number. 


i 
( 
6TH; 


A 
Y 
U 
B 
S 
) 
AML 
' Ignore blanks 


T_NAME _ 
fosc$w_LENGTHI, 
DSC, FCB CFCBSL 

' Value size is 

-1; 


DSC 
CSc 
= %C 
=U 
DSC$ 
DSCs 
LNM 
= RE 
M_DSC 
BSC 
DSC) 

Translation must succeed to continue 


15 


L (LIMIT 
FCB CFCBSL_LINELIMIT) 


RSLLEN 


EQLU SS$_NORMAL 


H 
E 
] 
R 
G 
M 
M 
y to translate string as a sign 


successful, store as Linelimit. 


BEGIN 

Tr 

back to -1. 
IF NOT OTS$CVT_TI_ 
THEN 


END; 
PASSSFREE_VM (.XABKEY_SIZE, XABKEY_ADDR); 


END; 
Add file to list of open files. 


Mark PFV to indicate file open. 


Deallocate any KEY XABs. 


Mark XAB chain invalid. 
PASSSADD_FILE (FCB CFCBS$R_FCB)); 


PFV CPFVS$V_OPEN) = 1; 


FAB CFABSL_XAB] = 0; 


DOK MUM TMNOR. DHOOM UM TMNOR. DHO— UM TMNOR. DHOK— CUM TM OR. DAO UM TN OR. DODO UM TY 
F-00009 00 0000 00 00 00 COCO AAA AAAAAA AOD OCOD O00 NINN PPD 
AWAAWAIAAAIAI ALLAN OOOOOOOOOOOOOOOOOOWOOOOOOOOOVOOOOOOONOOO 


LLL OE EEE EEO CO OC OC OO 


aa 


NOR OKO — MUM TMNOR- DHOOM MUM TMOOR. DHOOM TMNOR. OHO MUMTMNOR. DKHO UM TM OR. OOO 
CIN AIAMN AMM MMIPAM SF oo oo oF oF PF oF oF PURINA DODO OOD OOO NRA RAR OSD 
LYLVLVLVLVLVLVLVLVLVLVLVLVLVLVLVLV LV LV LVL LV LV ELV LVL LVL LN LVL EL LN LL LVL LLL LN LN LN LN LY ALN NL LN LN LN LN EN EYAL ALN AY 
LLL LLL EEE EEE OO 


POV SF VEY SF SF SF FF ST ST TST OIC CINK INNIS NIENINIINIONIOIN 


FP PSPSPS HS HS HS HS HS HS HS eS HS HS HS HS SS lS eS *S*S HS eS eS *S*S SHS FSS teresa *S teste *S FSS *S FS tS *O FO *S Fete *S sere tetera *etearearte 


—_—_———— 


13 
| PASSOPEN2 OPEN procedure 1hege -1984 01:46:15 AX-11 oii Page 35 
1-015 PASSSOPEN = Open a file eneen abe F3iekil? | PANS AT Ohh espa obe ng 085.1 9° 10) 
: 158 1636 RETURN; 
i 1888 1637 : 
: 1584 1638 1 END; ' End of routine PASS$S$OPEN 
00 00078 PASSSAB_KEYWD_NAME_ TABLE: : 
OD OD OD OB OB 08 O08 08 O07 03 03 03 03 02 01 00079 arm 2... 3. B B..7.. oe & &... 88... 144.98. 3 
18 18 1B 1A 19 13 13 13 #13 #13 #13 «10 10 10 00088 18, 13,°16. 16, 16.19. 19, 19, 19, i9,- : 
10, 28« Oe Ete Ble OF : 
00# 00096 .BYTE (8) : | 
54 55 50 4E 49 246 53 41 50 OOOAT P.A “ASCII \PAS$INPUT\ : 
54 55 50 4E 49 24 53 59 53 OQOOAA P.AAB: . ASCII \SYSSINPUT\ : 
54 55 50 54 55 4F 24 53 41 50 00083 P.AAC: .ASCII \PASSOUTPUT\ : | 
54 55 «50 «54 «655:«64F «084 «653 «59 «653 «(00RD P.AAD: ASCII \SYSSOUTPUT\ : | 
50 40 54 2€ 45 4D 41 GE GF GE 53 41 50 000C7 P.AAE: ASCII \PASNONAME. TMP\ : 
54 41 44 2E 00004 P.AAF: ASCII \.DAT\ : 
54 49 4D 49 4C 45 GE 49 4C 24 53 41 50 000D8 P.AAG: ASCII \PASS$LINELIMIT\ ; 
.EXTRN PASS$SGET_VM, SYSSDCLEXH | 
“EXTRN PASSK_INVRECLEN 
“EXTRN PASSK_INVARGPAS | 
SEXTRN PASSK~INVFILSYN | 
.EXTRN SYSS$TRNLOG, PASSK_TEXREQSEQ | 
-EXTRN PASSK_ACCMETINC | 
-EXTRN PASSK~FILNAMREQ 
“EXTRN PASSKER RECLENINC | 
«EXTRN SSOPEN, SYSSCREATE 
-EXTRN SyescLosé, SYSSCONNECT | 
-EXTRN PAS$K_FILNOTFO | 
*EXTRN PASSK-ERRDUROPE 
-EXTRN PAS$K~ORGSPE INC 
SEXTRN PASSKe RECTYPINC | 
*EXTRN $cUT TI Le PASSSFREE_VM 
-EXTRN PASSSA ADB _F 
“WEAK = PASSFV_ INPUT. PASSFV_OUTPUT | 
OF7C 00000 ENTRY PASSSOPEN, Save R2,R3,R4,R5,R6,RB,RIRIO,- ; 0327 | 
SE FE88 CE 9E 00002 MOVAB -376(SP), SP : 
F4 AD 7C 00007 CLROQ KABKEY Size : 0452 | 
FC AD 04 OQOOOA CLRL ADBR : 
6D O8F2 CF DE 0000D MOVA T6US. (FP) : | 
2c 00 6E i 00 2¢ 9001¢ MOVCS #0, (SP), #0, #44, SRMS_PTR > 0480. 
C8 AD 2C1D 8F B0 00019 MOVW #11293, SRMS gk : 
a CC AD BC AD 9E OOOTF MOVAB xAB_ SUM, $RMS_P : | 
0c 00 bE a 00 2c 909 4 MOVCS ~?SPS, #0, aby * SRMS_ PTR > 0481 | 
BC AD 0C16 8F BO 00028 MOVW sient: SRMS_PTR : 
56 04 ac 00 900 1 MOVL IN_PFV, > 0487. 
6E 04 Ad 9E 00035 MOVAB 4(PFV); (SP) > 0493 | 
OA 00 BE 1¢ €1 00039 BBC #28, aO(SP), 1 : 
08 A6 56 ¢0 000 E ADDL2 pV i PFV) : 0496 | 
00 «BE 01 1C 00 FO 0004 INS #28, #1, a0(SP) > 0497 


-v 
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90839; 1 


PASOPEN 
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esRel 


rocedure 


PASSSOPEN - Open a file 


OPEN 


PASSOPEN2 
1815 
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H 1 
PASSOPEN2 OPEN procedure 16-Sep-1984 01:46 
8 PASSSDPEN = Open a file pata 12:51 
54 dg O1CC 15$: INCL 
53 08 AC44 F O1ce CVTLW 
OOFF BF 53 Bi 0010 CMPW 
i¢ 1A 90108 BGTRU 
78 «A? 53 90 O1DA MOVB 
54 6 1DE INCL 
70 a7 08 AC44 DO OOTE MOVL 
7A 11 001E6 BRB 
54 D6 OO1EB 168: INCL 
53 08 AC44 F7 OO1EA CVTLW 
OOFF 8F 53 Bi OOTEF CMPW 
09 1B OO1Fe BLEQuU 
E D4 OO1F6 17$: CLRL 
7E 00G 8F 9A 001F8 MOVZBL 
05K 31 OO1FC 188: BRW 
79 ~=~AT 53 90 OO1FF 19$: MOVB 
54 D6 00203 INCL 
74 A? 08 AC44 DO 00205 MOVL 
7C 11 00208 BRB 
FC OA? 10 88 0020D 20$ B1SB2 
04 11 00211 BRB 
4B AT 02 88 00213 21$ BISB2 
50 SA A? 9E 00217 228 MOVAB 
60 1F 88 0021B BISB2 
0080 31 OO21E BRW 
FC A? 18 88 00221 23$ BISB2 
SA A? 02 88 00225 BISB2 
_ 7B 11 00229 BRB 
54 D6 0022B 24% INCL 
QOOOFFFF &F 08 AC44 D1 00220 CMPL 
12 1B 00236 BLEQU 
08 AC44 DD 00238 PUSHL 
01 DD 0023C 258 PUSHL 
7E 00G 8F 9A 0023E MOVZBL 
000000006 00 03 FB 00242 CALLS 
04 00249 RET 
08 AE 08 AC44 F7 0024A 26$ CVTLW 
77 69 £9 00250 BLBC 
65 08 AE BO 00253 MOVW 
7C 11 00257 BRB 
FC OAT? 01 88 00259 278 BISB2 
48 8 A7 40 8F 88 0025D BISB2 
7E 11 00262 28 BRB 
FC OAT 0¢ 88 00264 298 BISB2 
30 «A? D8 soOA E 00268 MOVAB 
04 A7 10 88 0026D BISB2 
7B 11 00271 BRB 
FC OA? 04 88 00275 30$ BISB2 
7F 11 0027 BRB 
63 AT 01 90 00279 31$ MOVB 
9 11 0027D BRB 
63 «AT 02 90 O027F 328 MOVB 
73° 11 00283 BRB 
63 AT 04 90 09 85 MOVB 
6D 11 00289 34$ BRB 
63 «AT 06 90 00288 MOVB 
67 11 0028F BRB 
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J 13 l 
PA PEN2 OPEN procedure 16-Sep-1984 AX=-11 Bliss-32 V4.0-74 Pp 4 F 
at PASSSDPEN = Open a file 14 b=8ep-1984 Pee: PASRTL.SRCIP PASOPEN .B32;1 age 45s 1 
9 12 00362 BNEQ  63$ ; | ; 
70 A? 3 p 64 MOVL SUBSTITUTE. NAME, 112(RAB) : 0920 ; 
70 A? 8 AE p 6A 63$: MOVL LOGNAM DSC+4, 112(RAB) : O35 8 : 
| 78 «OA? 4 AE O36F G4$: MOVE = LOGNAM DSC, {20(RAB) ; 0909 : 
0 A? D 4 65$:  TSTL 1 + 0933) ; 
32 if 77 BNEQ 67$ : | ; 
10 9 E 79 BBC as (R9) 66$ : 0935. : 
0 A? D0 00370 MOVL  =28(RAB). PFD + 0940. ; 
78 «OA? 0c AO 90 00381 MOVE 1 CPEDS 120(RAB) + 0941 ; 
70 A? AO 9E 00386 MOVAB 13(RO), 112(RAB) : 0942 | : 
OF 11 00 it BRB 67$ : 0935, : 
48 A? 10 88 0038 66$ BISB2 wig, 72(RAB) > 0946. ; 
78 OA? 0D 90 0391 OVB #13, 120(RAB) + 0947 : 
70 =A? FC49 CE 9 00295 MOVAB P.AAE, 112(RAB) + 0948 ; 
OE 2C OA Oe E 00398 67$: BBS We KEYWORDS SEEN, 68$ + 0956 ; 
OA 69 05 £1 003A0 BBC #5. (RO), 688 : : 
79 «A? 04 90 O03A4 MOVB #4, 121(RAB) + 0959 ; 
74 A7 FC43 CF 9E OO3A8 MOVAB P.AAF, 116(RA : 0960 3 
07 2c AE 03 £0 OO3AE 68$: BBS “3, akEYWORDS_ SEEN, 69$ + 0967 : 
50 SA AT H 0038 OVAB 90(R RAB), RO + 0973 : 
60 1F 88 00387 BISB2 #31, (RO) : 0977 ; 
0B 2D «AE Es 003BA 69$:  BLBS KEYWORDS SEEN+1, 70$ + 0984 : 
FC OAT 01 88 0038 BISB2 -4 (RAB) : 0990 ; 
48 A? 40 8F 88 003C BISB2 Ash, 72 (RAB) : 0991 : 
07 11 003¢ BRB 71$ > 0984 : 
04 69 £9 003C9 70$ BLBC = (R9),,_ 718 + 0993 : 
4D FC 360A? «ED 003CC BLBC -4(RAB), 79$ : ; 
11 2D «AE 03 £0 00300 71$: BBS #3, KEYWORDS_SEEN+1, 74$ : 1001 : 
04 69 EB 00305 BLBS = (R9), + 1003 ; 
06 69 02 £1 00308 BBC i R9) . 73$ : ; 
63 AT 02 90 0030C 72$:  MOVB #2. 99(RAB) + 1005 : 
04 11 003E0 BRB 74$ ; : 
63 AT 01 90 003E2 73$ MOVB #1, 99(RAB) + 1007 ; 
54 63 AZ YE 003E6 74$ MOVAB 99(RAB) Ra + 1008 ; 
10 AE 64 90 OO3EA MOVB (RA) usr : ; 
0B 2D AE 05 £0 OO3EE BBS KEYWORDS. SEEN+1, 76$ > 1014 ; 
04 69 £8 003F BLBS 12) 8 : 1016 ; 
04 69 02 £1 003F6 BBC #2, (RO), 76$ : ; 
62 A7 02 88 OO3FA 75$:  BISB2 #2. 98(RAB) : 1018 ; 
09 2—E AE 03 £0 OOStE 76$: BBS #3. KEYWORDS, SEEN+2, 77$ + 1024 ; 
04 48 A? 04 £0 0040 BBS RAB), ~77$ > 1026 ; 
FC OAT 20 88 00408 B1SB2 , =4(RAB : 1028 : 
05 2e Ag 8 0040C 77$:  BLBS KEYWORDS_SEEN#2, 78$ > 1034 : 
61 A? 94 00410 CLRB > 1036 : 
10 11 00413 BRB 0$ : : 
0D 69 £9 00415 78%:  BLBC  (R9), 808 > 1037 ; 
61 AZ 95 00418 TSTB 97(RAB : : 
08 13 0041B BEQL  80$ : ; 
7E 04 00410 79$:  CLRL  -(SP) + 1039 : 
7E 006 8F 9A 004 1F MOVZBL M#PASSK_TEXREQSEQ, -(SP) : : 
F 11 00423 BRB : : 
53 61 AZ 9 0425 80$:  MOVAB 97(RAB) 9° 1040 | : 
14 AE 63 90 00429 MOVB = (R3) ORG : : 
14 26 AE E9 00490 BLOC KEYWORDS SEEN#2, 82S : 1051 | 
12 iF 0431 BNEQ 82$ 3 1052 | ; 
09 5B OA?sCEB 00433 BLBS  91(RAB), 81$ 2 1054 | ; 
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oat OPEN d iB ue 1984 01:46:15 AX-11 Bliss-32 V4.0-74 P 45 a 
rocedqure - ep- 3 H - 1ss°- V4.0- age 

1-015 PASSSOPEN = Open a file 127808- 138 12:51:41 PASRTL SRE IPASOMENS 03951 9 10)” 1- 
65 52 BO 0075F MOVW = R2,_ (RS) : 1429 ; 

OA Bo a0769 BRB 143$ : ; 

65 D2 AD 81 00764 142$: CMPW xa FHC+10, (R5) + 1432. : 

04 1B 00768 BLEQU 1438 : ; 

65 D2 AD BO 0076A MOVW  XAB_FHC4+10, (RS) + 1434) ; 

1B 68 £8 076 143$:  BLBS (R8Y, 145$ : 1442. ; 

OE 68 01 €1 007771 BBC #1, (RB), 144$ + 1443 ; 

10 63 91 00775 CMPBs«(RS),, #16 + 1444. ; 

le 13 00778 BEQL 145$ : | : 

63 95 0077A TSTB  —s_ (R33) + 1445. ; 

05 12 0077¢ BNEQ 144$ : | ; 

01 64 91 0077E CMPB ss (R44), #1 : ; 

09 13 00781 BEQL 145$ : | ; 

14 ra: 0¢ E1 00783 144$: BBC #2, (RB), 146$ > 1446) ; 

20 63 91 00787 CMPB (RS), #30 3 1447) 

OF 12 0078A BNEQ  146$ : ; 

19 68 01 €1 0078C 145$: BBC #1, (RB), 148$ t 1458) ; 

05 0087 (7 04 £1 00790 BBC #4. 135(RAB), 146$ + 1460. ; 

OE O0CA C7 E9 00796 BLBC =. 202 (RAB), 148$ : 1461, : 

7E 04 00798 146$: CLRL  -(SP) > 1463. ; 

7E 006 8F 9A 0079D MOVZBL #PAS$K_ACCMETINC, -(SP) : ; 

060000006 00 02 FB OO7A1 147$: CALLS #2, PASS$SIGNAL : ; 

04 007A8 RET : ; 

20 63 91 007A9 148%:  CMPB  (R3), #32 > 1470. ; 

OE 12 007AC BNEQ 149% : : 

FL AD OF OO7AE PUSHAB XABKEY_SIZE t 1473. ; 

F8 AD 9F 007B1 PUSHAB XABKEY_ADDR : b 

BC AD 9F 007B4 PUSHAB XAB_SU : ; 

0000v CF 03 FB 00787 CALLS #3,~CHECK_KEY_XABS : | ; 

FFFFFFFF © 8F Oc AE D1 007BC 149%: CMPL  FILE_TYPE> #-T + 1483. ; 

1A 12 007C4 BNEQ  150$ : : 

13 00000000' EF €E8 007C6 BLBS | PAS$$GV_INPUT_OPENED, 150$ : ; 

00000000" EF 01 90 007CD MOVB #1, PASSS$GV_INPUT_OPENED > 1486) : 

00 BE 01 10 00 FO 0C7D4 INSV #0. #16, #17 a0(SP t 1487 | : 
01 AB OC 88 O07DA BISB2 #12, 1(R8) > 1489, ; 

42 11 OO7DE BRB > 1483, 3 

. 01 Oc AE D1 OO7E0 1508: CMPL  FILE_TYPE, #1 > 1491 | ; 

‘ 2A 12 OO7E4 BNEQ  151$ : | : 

23 00000000" EF €E8 007E6 BLBS | PAS$$GV_OUTPUT_OPENED, 151$ : : 

00000000" EF 01 90 OO07ED MOVB #1, PASSS$GV_OUTPUT_OPENED 7 14946) 3 

01 «AB 30 88 007F4 BISB2 #48, 1(R8) : 1496 | ; 

00 BE 01 12 01 FO 007F8 INSV #1, #18, #1, @0(SP) > 1497. ; 
00 BE 01 10 61 FO OO7FE INSV #1. #16. #1. a0(SP) : 1498. : 
00 BE 01 11 00 FO 00804 INSV #0. ; #1, a0(SP) > 1499 : 
04 A7 02 88 0O80A BISB2 #2. 4(RAB) : 1500. : 

12 11 OOB0E BRB 152 > 1491. ; 

00 BE 01 12 00 FO 00810 151%: INSV #0, #18, #1, a0(SP) : 1507 | ; 
00 BE 01 10 01 FO 00816 INSV #1. #16. #1. a0(SP) ; 1508. : 
00 BE 01 11 00 FO 0081¢ INSV ’ #17. #1. ad(SP) : 1509 : 
32 24 «AT 3 00822 152$:  MOVAB 36(RAB). R2 : 1519. : 

1 69 : 00826 BLBC (R9), 1538 : 1516. : 

7E 65 3C 00829 MOVZ2WL (RS). =(5P) : 1519 : 

000000006 00 01 FB 008 ¢ CALLS #1, PASSSGET_VM ; | 3 

62 50 D0 008 MOVL RO. (R2) : | 3 

02 As 08 88 00836 BISB2 #8. 2(RB) > 1520 | : 

0D 11 O083A BRB 155 > 1516. : 

06 69 02 €1 0083C 153$: BBC #2, (RO), 154% : 1522 | : 
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7E 
0000v CF 
2340 bytes, Routine Base: 
1 
1 !<BLF/PAGE> 


PASSSOPEN - Open a file 


OPEN 


SEpPENC 
; Routine Size: 


PA 
1- 


14 

PASSOPEN2 OPEN procedure 1b-Se -1984 01:46:15 AX-11 Bliss-32 V4.0-74 Page 48 
att PASSSOPEN. IMPLICIT - Open implicitly opened fil 1a-Sep-19 4 12:51:41 PASRTL.SRCIPASOPEN -B32;1 . (11) 

88 1641 1 XZSBTTL ‘PASSSOPEN_IMPLICIT - Open implicitly opened files’ 

89 GLOBAL ROUTINE PASSSOPEN IMPLICIT ( 

90 PFV: REF SPASSPFY_FILE_ VARIABLE ' File variable 

91 IN_FCB: PEF SPASSFCB_ CONTROL BLOCK; i Control block 

35 FCB: REF SPASSFCB_CONTROL_BLOCK ' Output FCB 

S ): JSB_OPEN_IMPLICIT NOVALUE = 

95 ++ 

a8 FUNCTIONAL DESCRIPTION: 

98 This procedure is called from procedures which do not 

99 accept textfiles, but have been called with a file that 

00 has its PFVSV_VALID bit clear. So that a proper error 

01 message can be given, this procedure opens the file INPUT 

02 or OUTPUT, if that is the current file and if that file 

oP has not already been opened. 

05 CALLING SEQUENCE: 


JSB_OPEN_IMPLICIT PASSSOPEN. IMPLICIT (PFV.mr.r, IN_FCB.mr.r; 
amr .fr 


! FORMAL PARAMETERS: 


PFV - The Pascal File Variable (PFV) for the file. 
IN_FCB - The File Control Block (FCB) for the file. 
FCB - The result FCB for the file. 


IMPLICIT INPUTS: 


it is assumed that the caller has verified the PFV and has locked 
1 . 


i IMPLICIT OUTPUTS: 
NONE 
i COMPLETION STATUS: 
NONE 
SIDE EFFECTS: 
NONE 
SIGNALLED ERRORS: 


o 
SODNOUSWN —OOONAOUS WHO OONO 


WRIPIPINPINMININPINNID 2 2 3 SS OS S| OOO 
0000 09 09 09 08 SI NII SIS SSN SSAA AAA AAA MMIII ES EE 


PAAAAAAA AAA AA AAA AA AAAS AAA AAAAAAA AAAS AOMIMIMNGINN Nn 


WWAWNWWANWNW 


BEGIN 
FCB = IN_FCB CFCBS$R_FCB); ! Set output FCB 
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PASSOPEN2 OPEN procedure 16-Sep-1984 01:46:15 AX-11 Bliss-32 V4.0-74 Pp 49 
nAgte PASSSOPEN_IMPLICIT = Ocen implicitly opened fil 1e-8ep-19 4 OF eo: ]? PASRTL_SRCIPASOPEN -B32;1 29e at) 


; 1645 1698 ' See if the file is open. If not, but is INPUT or OUTPUT, open it. 

3; 1646 19n2 ! Otherwise, return. F : 

> 1647 1700 \- 

: 1208 1503 IF NOT .PFV CPFVSV_OPEN) ! 

; ~PFYV V$V NJ ! Not open 

: 1650 1708 THEN - . 

: 1651 1704 BEGIN 

3 1936 1703 te’* CPFV$R_PFV] EQLA PASS$FV_INPUT) AND NOT -PASS$GV_INPUT_OPENED 
: 1654 1707 PASSSOPEN (PFV CPFVS$R_PFV], PASSK_HISTORY_READONLY; FCB) 

; 1695 1708 ELSE IF (PFV CPFVSR_PFV) EQLA PASSFV_OUTPUT) AND NOT .PAS$$GV_OUTPUT_OPENED 
H 1657 rN PASSSOPEN (PFV CPFVSR_PFVI, PASSK_HISTORY_NEW; FCB) 

; 1659 ar 4 BEGIN 

: iee% Wiz ¢ ine PFD buf f dd i lf lati 

3 : or buffer address is self-relative, resolve it. 

: 1986 1718 4 != 

: 166 1716 4 

: 1664 1717 & IF .PFV CPFVSV_RELPFD) 

: 1665 1718 4 THEN 

: 1666 1719 5 

3 1667 1720 5 PFV CPFVSA_PFD] = .PFV CPFVSA_PFD] + PFV CPFVSR_PFV]; 

: 1668 1721 5§ PFV CPFVSV_RELPFD] = 0; 

3; 1669 17S¢ 4 END; 

: ert 1752 IF .PFV CPFVSV_RELBUFI 

$ . LBU 

: 167¢ 1725 4 THEN ie 

: 167 1726 5 BEGIN 

3 1674 1727 5 PFV CPFVSA_BUFFER] = .PFV CPFVSA_BUFFER] + PFV CPFVS$R_PFVJ; 
; 1675 1728 5 PFV CPFVSV_RELBUF] = 0; 

: 1676 17$? 4 END; 

3; 1677 1730 4 

; 1678 1731 +3 END; 

3; 1679 1732 2 END; 

3: 1680 1733 2 

3; 1681 1734 2 RETURN; 

: 1682 1735 2 

: 1683 1736 (1 END; ! End of routine PASS$SOPEN_IMPLICT 


52 04 A6 YE 00000 PASSSOPEN_IMPLICIT:: 
MOVAB 4(PFV), R2 : 1702 
4B 62 1D €0 00004 BBS #29, (R2), 5$ : 
50 00000000G 00 9€ 00008 MOVAB PAS$FV_INPUT, RO 3; 1705 
50 56 D1 O000F CMPL v, RO : 
0B 12 00012 BNEQ 3 
04 00000000" EF €E8 00014 BLBS PAS$$GV_INPUT_OPENED, 1$ 3 
06 DD 0001B PUSHL #6 : 1707 
15 11 00610 BRE 2$ : 
50 000000006 9° 9E OOOIF 1$: MOVAB PASSFV_OUTPUT, RO : 1708 
50 6 D1 00026 CMPL PFV, RO 3 
11. 12 Bone? BNEQ : 
OA 00000000" EF €8 0002B BLBS PAS$S$GV_OUTPUT_OPENED, 3% 3 
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PASSOPENE OPEN procedure 19=3007 138% 1:46:15 AX-11 Bliss-32 V4. “248 Page 51 
1-01 FILL_KEY_XABS = Fill in key XABs for indexed fi 14-Sep-1984 12:51:41 PASRTL.SRCJPASOPEN2.B32;1 (12) 
>; 1685 1737 1 ZSBTTL ‘FILL_KEY_XABS = Fill in key XABs for indexed file’ 
> 1686 1738 1 ROUTINE FILL_KEY_xABS ( A 
; 1687 1739 1 PFV: REF SPASSPFV_FILE_ VARIABLE, ! File variable 
>; 1688 1740 1 FCB: REF SPASS$FCB_CONTROL_BLOCK ' File control block 
; 1689 1741 1 KDB: REF SPAS$KDB-KEY DESCRIPTOR, i Key descriptor 
: 1690 ree 1 XAB_SUM: REF $XABSUM_BECL, ' Summary XA 
; 1691 1743 1 XABREY_ADDR: REF VECTOR [, LONG), ! Address of KEY XABs 
: 1696 1744 1 XABKEY_ SIZE: REF VECTOR LON ! Length of KEY XABs 
3 169 1745 1 ): CALC_FILL_KEY_XABS NOVALUE = 
> 1694 1746 1 
; 1695 1747 1 S44 
: 1696 1748 1 ! FUNCTIONAL DESCRIPTION: 
; 1697 1749 1! 
; 1698 i7o0 3 3 This procedure is called by PASS$SOPEN to allocate and fill in 
; 1699 1751 1! the KEY XABs for an indexed file. 
; 1700 1736 1! 
; 1701 1755 1 ! CALLING SEQUENCE: 
3 1708 1754 1! 
; 170 ‘792 1 3 CALL_FILL_KEY_XABS FILL _KEY_XABS (PFV.rr.r, FCB.mr.r, 
: i 1736 : KBB.rr.r, XAB_SUM.wror, XABKEY_ADDR.wa.r, XABKEY_SIZE.wl.r) 
: 1706 1758 1 ! FORMAL PARAMETERS: 
3; 1707 1759 1! ; ; 
: 1708 1760 1! PFV - Pascal File Variable 
3 1709 1761 1! ; 
3 1710 1766 1} FCB - File control Block 
3 371) 1763 1! A r 
3; 1712 1764 1! KDB - Key descriptor block. The structure is: 
3: 1713 1765 1! 
3 1714 1766 1! toococoosooocosooscoccces toocesons 
: 1715 1767 1! H MBZ | Count | <== KDB 
Hy 1716 1768 1 ' tower enrce tower ers +oeeeeeceas +oewoeooon} 
3 1717 1769 1! | MBZ : Size | Dtype | Key # 
3; 1718 1770 1! teoccece teececee foceccee ¢eececce + 
3 1719 771i 1! | Byte offset into record H 
: 1720 1772 1! ¢eoccece tecccece teecccee ¢eoccese + 
3: 1721 1775 1! | MBZ {| Size : Dtype | Key # } 
: 1722 1774 1 Bd pa op ¢eeeeccn 
3s 1723 1775 1! | Byte offset into record i 
3: 1724 1776 1! teowecooroocooewccocooececoocec= 
: 1725 1777 1! H — } 
: 1726 1778 1! 
; 1727 tie BE XAB_SUM - The summary XAB allocated by our caicer. The 
: 17s8 1750 : key XABs will be chained to it. 
; 1730 irae ze. XABKEY_ADDR - Place to store address of allocated KEY XABs 
3; 1731 17835 1! so that they may be deallocated in case of an 
; 1738 1784 1! error. 
3; 173 1785 1! 
3; 1734 1786 1! XABKEY_SIZE - Place to store length of allocated KEY XABs. 
: 1735 1787 1! 
3 1736 1788 1°! IMPLICIT INPUTS: 
3; 1737 1789 1! 
; 1738 1790 1! NONE 
3; 1739 1791 1°! 
3; 1740 fa 1 ! IMPLICIT OUTPUTS: 
3 1741 1793 1! 


-v 
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PASSOPEN2 OPEN procedure rhage =1984 01:46:15 AX-11 Bliss-32 V4.0-74 P 52 
att FILL_KEY XABS - Fill in key XABs for indexed fi 1-$ep-19 4 Pars ee PASRTL SRE IPASOENS 03 31 396 42) 
; 1743 1794 1! NONE 

3: 174 1795 1! 

; fee 1796 | : COMPLETION STATUS: 

: 1746 1798 1: NONE 

+ 176 1799 1! 

; 1768 1800 | SIDE EFFECTS: 

: 1750 1808 1 i NONE 

: 1751 1805 1! 

; 1738 130% : SIGNALLED ERRORS: 

> 1754 1806 1 | 

; 1755 1807 1 !<- 

: 1756 1808 1 

: 1757 1809 2 BEGIN 

; 1758 1810 2 

: 1759 1811 < OCAL 

: 1760 1812 NEXT_KEY: REF SPASSKDB_KEY_DESCRIPTOR, ! Descriptor of next key 
: 1761 1813 2 XAB_REY: REF SXABKEY_DECL, ' Key X 

: 1762 1814 2 LAST_XAB: REF $XABKEY_DECL, ' Previous key XAB 

: ite? aE § LAST_KEY: SIGNED; ! Last key number 

: 1765 1817 : NEXT_KEY = .KDB; ! Get KDB address 

: 1767 1819 2 \+ 

3 1708 1330 § Aitecate all the KEY XABs we need to describe the 

e . € s. 

: 1770 TS ee Al 

: 1771 1823 2 

: 1772 1824 2 FCB CFCBSL_NKEYS] = .NEXT_KEY CKDB$B_COUNT); 

3 1773 1825 2 XAB_SUM CXAB$B_NOK] = .NERT_KEY CKDBS$B_COUNT); ! RMS doesn't set on create 
3 1774 1826 2 XABREY_ SIZE COJ = .FCB CFCBSL_NKEYS) * XABSC_KEYLEN; 

: 1??? lost 2 UF iene v SIZE C0] NEQ 0 

: 1777 1829 4 BEG! 

: 1778 1830 3 XAB_KEY = PASSSGET_VM (PFV CPFVS$R_PFV], .XABKEY_SIZE ([0J); 

; ivy 133) 3 XABREY_ADDR COJ = TXAB_KEY; 

; 1781 1833 : LAST_XAB = XAB_SUM [0,0,0,0); 

; 1783 1835 2 NEXT_KEY = NEXT_KEY (4,0,0,0]; ! Advance pointer over count longword. 
: 17ee 1836 2 LAST_KEY = -1; ! Initialize for comparison 

> 1786 1838 ; '4 as 

: 4444 H+ § For each key, fill in the KEY XAB. 

> 1789 1841 2 

3 fa ine INCA KEY NUM FROM 0 TO .FCB CFCBSL_NKEYS] - 1 DO 

: 179¢ 1844 

: 179 1845 XAB_KEY CXAB$B_COD] = XABSC_KEY; 

: 1794 1846 ; XAB-KEY CXAB$B_BLN] = XABSC"KEYLEN; 

; 1799 1367 XAB-KEY CXABSB"REF] = .NEXT-KEY CKDB$B_KEY_NUMBER); 

: 1797 1849 ; 

: 1798 1850 '¢ 


wv 
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J 14 
PASSOPENG OPEN procedure ; 19-3007 138% 91:46:)3 AX-11 Bliss-32 Fy eet Page 53 P 
1-01 FILL _KEY_XABS = Fill in key XABs for indexed fi 14-Sep-1984 12:51:41 PASRTL.SRCJPASOPEN2.B32;1 (12) 1 
; 1799 } 3) Ensure that the keys are in ascending order. ; 
; 1801 38 iF .XAB_KEY CXABS$B_REF] LEQ .LAST_KEY ; 
; 1803 1855 SPASSIO_ERROR (PASS$_INVARGPAS,O); ‘ 
3; 1804 1828 : 
; 1805 185 + . : 
: 1806 1858 ! If this is possibly a SCREATE, make sure that the keys : 
; 1807 1859 ! are in order and dense. ° 
: 1808 1860 te ; 
; 1809 1861 IF NOT .FCB CFCBSV_OLD_FILE) ; 
: 1810 1366 TH : 
: ae 1307 IF .XAB_KEY CXABSB_REF] NEQ .KEY_NUM ‘ 
: 1818 H+ SPASSIO_ERROR (PASS_INVKEYDEF ,0); ‘ 
>; 1815 1867 IF .XAB_KEY CXABSB_REFJ] NEQ 0 ! Not primary key? ; 
: 1816 1868 : THEN : : 
3 + 344 199) 3 XAB_KEY CXABSB_FLG] = XABSM_CHG+XABSM_DUP; ! Allow changes and duplicates : 
; 1819 1871 3 IF .NEXT_KEY CKDB$B_DTYPE] EQL DSCS$K_DTYPE_T ! String? | 3 
: 1820 1376 3 THEN 3 
3; 1821 18735 4 BEGIN . 
> 1822 1874 4 XAB_KEY [XAB$B_DTP] = XABSC_STG; ; 
; iss? 137? : KAB_KEY CXAB$B_S1Z0] = .NEXT_KEY CKDB$B_SIZEJ; : 
>; 1825 1877 3 ELSE IF .NEXT_KEY CKDB$B_DTYPE] EQL DSC$K_DTYPE_BU ! Enumerated? : 
>: 1826 1878 3 THEN 3 
3; 1827 1879 4 BEGIN | : 
3 1828 1880 4 '¢ : : 
; 1829 1881 4 ! Since RMS doesn't have an unsigned byte type, | ; 
: 1830 1882 4 ' call it a l-byte string, which is equivalent. ; 
>; 1831 18835 4 le : 
: 1832 1884 4 XAB_KEY CXABSB_DTP] = XABSC_STG; | ; 
> 1833 1885 4 XAB-KEY CXAB$B~S1Z0) = 1; | ; 
> 1834 1886 4 N ; 
; 183 1887 3 ELSE CASE .NEXT_KEY CKDBS$B_DTYPE] FROM DSCS$K_DTYPE_WU TO DSCSK_DTYPE_L OF : 
: 1837 1889 3 COSC$K_DTYPE_wu): 3 
: 1838 1890 4 N 3 
> 1839 1891 4 XAB_KEY CXAB$B_DTP] = XABSC_BN2; | ; 
> 1840 1892 4 XAB-KEY CXAB$B~S1Z0) = 2; | ; 
3; 1841 1893 3 ; : 
3 Hk 1998 3 COSC$K_DTYPE_LUJ: : 
3 184 1895 4 BEGIN 
> 1844 1896 4 XAB_KEY CXABSB_DTP] = XABSC_BN4; 
3 1845 1897 4 XAB_KEY CXAB$B_SIZ0] = 4; 
3 1846 1898 3 END; 
> 1847 1899 3 COSCS$K_HTYPE_w): 
3 1848 1900 4 BEGIN 
> 1849 1901 4 XAB_KEY [XABSB_DTP] = XABSC_IN2; 
; 1850 1902 4 XAB_KEY CXAB$B_S120] = 2; 
3; 1851 1903 ; END; 
; 185¢ 1904 COSCS$K_DTYPE_LJ: 
3; 185 1905 4 BEGIN 
3 1854 1906 4 XAB_KEY CXABSB_DTP) = XABSC_ING; 
; 1855 1907 4 XAB_KEY (CXAB$B_S1Z0] = 4; 


K 14 
OPEN procedure 16-Sep-1984 01:46:15 AX-11 Bliss-32 v4. Pa 4 P 
-01 FILL_KEY XABS - Fill in key XABs for indexed fi 14- ety 7 12:51:41 PASRTL’ SRC. JPASOPEN “B35, :1 9¢ 435 1 
; 1856 1908 
51 1909 CINRANGe OUTRANGE): 
> 1858 1910 SPAS$10_ERROR (PAS$_INVARGPAS,O); 
> 1859 1911 TES; 
: 1860 191¢ 
: ibe 1912 is if the fil d, RMS d fill in TKS, 
° nce the € is create oesn “ft in TK 
3 1808 1915 ' do it here. 
: 1864 bay ie 
: 1865 1917 XAB_KEY CXAB$B_TKS] = .XAB_KEY CXAB$B_SIZ0J; 
: 1867 1919 IF .NEXT_KEY CKDBSL_OFFSET] GTRU 65535 
> 1868 1920 THEN 
: 1869 1921 SPAS$IO_ERROR (PAS$_INVKEYDEF 0); | 
: 1870 13 é XAB_KEY CXAB$W_POSO] = TNEXT_KEY CKDBSL_OFFSET; 
i 1872 1926 LAST XAB CKABSL_NXTI = .XAB_KEY: 
: 187 1925 3 LAST-XAB = | 
: 1874 1926 3 LAST KEY = “xAs KEY. CXABSB_REF I; | 
: 1875 1927 3 AB_REY AB_REY + HABSC- “KEYLEN; | 
; 1876 1928 3 NERT REY = NEXT _KEY (8,0,070); ! Advance KDB 
: 1877 1929 2 END; 
: 1878 1930 2 
: 1879 1931 2 RETURN; 
: 1880 1932 2 
; 1881 1933 1 END; ! End of routine FILL_KEY_XABS | 
| 
.EXTRN PASSK_INVKEYDEF 
013C 00000 FILL_KEY_XABS: | 
“WORD Save R2, R3, R4,R5,R8B : 1738 
54 04 AC dO 00002 MOVL KDB, NEXT + 1817 
DO. =A? 64 9A 00006 MOVZBL (NEXT _KEYY, -48(FCB) + 1824 
53 08 AC DO O0000A V AB_SOM + 1825 
09 «AB 64 90 OO00E MOVB (NERT_KEY), 9(R3) ; 
10 BC DO A7 0000004c 8F C5 00012 MULL3 #76, mittee @XABKEY_SIZE + 1826 
11 13 0001C BEQL > 1827 
10 BC DD OOOTE PUSHL aXABKEY SIZE + 1830 
000000006 00 01 FB 90021 CALLS PASSSGET _VM ; 
52 50 pO 00028 MOVL 4 XAB_KEY ; 
Oc BC 52 pO 00028 MOVL. XAB_KEY; @XABKEY_ADDR > 1831 
54 04 CO O00¢F 1$: ADDL2 #4, NEXT_KEY : 1835 | 
58 01 CE 00032 MNEGL #1. LAST-KEY + 1836 
55 01 cE 00035 MNEGL #1. KEY_RUM + 1861 
0083 31 00038 BRW o$ F 
62 4C15 8F BO 00038 2$: MOVW #19477, (XAB_K > 1845 
17 Ao 64 90 00040 MOVB (NEXT art) oS XAB Y) : 1847 
08 00 €D B0044 CMP27V #0, 23(XAB_ KEN" ON AST _KEY > 1853 
08 14 0004A BGTR is F 
E Dd4 0004C 3S: CLRL  =(SP) > 1855 | 
7E 006 BF 9A O4E MOVZBL #PASS$K_INVARGPAS, -(SP) ; 
B 11 0005 BRB ; 
FC OAT 04 £0 00054 4$: BBS -4(FCB), 5$ > 1861 
08 00 ED 00059 CMPZV 50° #8, 23(KAB_KEY), KEY_NUM > 1863 
68 12 0005F BNEQ = 17$ : 
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M14 
PASSOPENZ OPEN procedure Jo~30071 38% 01:46:15 AX-11 Oi fase V4.0-74 Page $6) 
1-01 CHECK_KEY_XABS = Check key XABs for indexed fil 14-Sep-1984 12:51:41 PASRTL.SRCJPASOPEN2.B32;1 (13) | 
>; 1883 1934 1 ZSBTTL ‘CHECK_KEY_XABS = Check key XABs for indexed file’ 
: 1884 1935 1 ROUTINE CHECK_KEY_XABS ( " 
>; 1885 19 § 1 PFV: REF SPASSPFV_FILE_ VARIABLE, ! Pascal File Variable 
: 1886 19 1 FCB: REF SPAS$FCB-CONTROL_BLOCK, ! File Control Block 
; 1887 1938 1 XAB_SUM: REF S$XABSUM_DECL, ' Summary XAB 
; 1888 1939 1 XABREY_ADDR: REF VECTOR C, LONG], ! Address of KEY XABs 
>; 1889 1940 1 XABKEY_ SIZE: REF VECTOR C, LONG ! Size of KEY XABs 
; 1890 1941 1 ): CALC_CHECK_KEY_XABS NOVALUE = 
>; 1891 1308 1 
; 1896 1945 1 !44 
; 189 1944 1 ! FUNCTIONAL DESCRIPTION: | 
> 1894 1945 1! ; 
; 1895 1946 1! This procedure is called by PASS$SOPEN to compare the keys that 
; 1896 1947 1! are declared in the KDB (if any) against those actually defined 
; 1897 1948 1! for the indexed file. 
; 1898 1949 1! 
; 1899 1950 1 ! CALLING SEQUENCE: 
: 1900 1951 1! 
: 1901 1926 1! CALL_CHECK_KEY_XABS (PFV.rr.r, FCB.mr.r, XAB_SUM.rr.r, 
; 1902 1953 1! XABKEY_ADDR.ma.r, XABKEY_SIZE.ml.r) 
; 1903 1954 1! 
3 1904 1955 1! FORMAL PARAMETERS: 
; 1905 1956 1! 2 . é 
: 1906 vor 3 PFV - The Pascal File Variable (PFV) for the file. 
: 1907 1958 1! ; | 
3 1908 1959 1! FCB - The result FCB for the file. 
: 1909 1960 1! 
: 1910 701 3 fT XAB_SUM - The summary XAB. If new KEY XABs are allocated 
; + a5 | 1006 : } by this procedure, they are Linked to XAB_SUM. | 
s ib at \oee : } XABKEY_ADDR | - The address of the previously allocated KEY XABs. | 
3; 1915 1966 1! XABKEY_SIZE - The size of the previously allocated KEY XABs. 
3; 1916 1967 1! 
3 1917 1968 1°! IMPLICIT INPUTS: | 
3; 1918 1969 1! 
3 1919 1970 1! NONE 
: 1920 1971 1! 
3; 1921 1972 1°! IMPLICIT OUTPUTS: 
3: 1922 1973 1! 
3 1923 1974 1! NONE 
3 1924 1975 1! 
3: 1925 1976 1 ! COMPLETION STATUS: 
3: 1926 1977 1! 
3 1927 1978 1! NONE 
3: 1928 1979 1! 
3; 1929 1980 1 ! SIDE EFFECTS: 
3; 1930 1981 1! 
3; 1931 1336 . 7 NONE 
5 1936 1983 1! 
3; 193 1984 1 ! SIGNALLED ERRORS: | 
3: 1934 1985 1! 
3 1935 1986 1! 
3: 1936 1987 1 !-- 
3 1937 1988 1 
3; 1938 1989 2 BEGIN 
3; 1939 1990 2 
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PAStpPENe OPEN pro 071388 01:46:15 AX-11 my V4.0-74 Page 3 
1-01 CHECK_KEY_XABS = Check key XABs for indexed fil 14-Sep-1984 12:51:41 PASRTL.SRCJPASOPEN2.B32;1 (13). 
; 1940 1991 CAL 

; 1941 1338 PFD: REF SPASSPFD_FILE_ DESCRIPTOR, ! File descriptor 
$ 1306 199 KDB: REF SPASSKDB-KEY_BESCRIPTOR, ' Key descriptor block 

; 194 1994 KAB_KEY: REF $XABREY_DBECL, ! Pointer to KEY XAB 

3; 1944 1995 KDB_NKEYS, ' Number of keys in KDB 

3 bo bo KEYTYPES: REF VECTOR C, WORD]; ! Vector of allowable key datatypes and lengths 

3; 19467 1998 BIND 

: 1948 1999 2 FAB = FCB: REF $PAS$FAB_FCB_STRUCT; 

3 1949 2000 2 ; ‘ | 
; 1950 2001 2 FCB CFCBSV_INDEXED) = 1; ! Indicate indexed organization 

; 1951 spo8 

; 1306 00 '+ ‘ : 

3; 195 2004 ! Get number of keys defined for file. 
3: 1954 2005 !- 

; 1955 2006 2 

: 1956 2007 g FCB CFCBSL_NKEYS] = .XAB_SUM CXAB$B_NOK]; | 
: 1957 2008 
; 13e8 2009 2 + | 

3; 195 2010 2 ! Get number of user-defined keys from KDB (if any). | 
: 1960 2011 2 '- 
3 1961 sole 2 
; 1962 201 § PFD = .PFV CPFVS$A_PFDJ; 

3; 1963 2014 IF .PFD CPFDS$A_KDB] NEQA 0 ! Is there a KDB? 

3: 1964 2015 ¢ THEN 

3; 1965 2016 BEGIN 

3; 1966 2017 3 KDB = .PFD CPFDS$A_KDB] + PFD CPFDSR_PFDI; ! Get address of KDB 

: 1967 2018 3 KDB_NKEYS = .KDB [CKDB$B_COUNTJ; ! Gét count oe 

: 1968 2019 3 KDB = KDB (4,0,0,0); ! Advance to first key description 

: 1969 2020 3 END 

; 1970 2021 2 , 

: 1971 2022 2 KDB_NKEYS = 0; 5 
: 1972 2023 2 | 
3: 1973 2024 2 '¢ tat ‘ 

3 1974 2025 2 ! If the number of keys ey in the KDB doesn't match the 

3; 1975 2026 2 ! actual number in the file, we have to throw away the KEY XABs 

; 1976 2027 2 : we allocated, allocate the correct number, and do a $DISPLAY 

3; 1977 2028 2 ' to fill them in. 

3; 1978 $063 2 !e 

; 1979 2030 2 

: 1980 2031 2 IF .KDB_NKEYS NEQ .FCB CFCBSL_NKEYS] 

3; 1981 ooRg $ THEN 
3: 1982 203 BEGIN 

3 1983 2034 3 LOCAL ; 

3 1984 2035 LAST_XAB: REF BLOCK C, BYTE]; ! Previous XAB 

3; 1985 2036 

3 1986 2037 '¢ 

3; 198 2038 ' Deallocate the old KEY XABs. 

: 1988 2039 te 

3: 1989 040 3 

3 1990 041 3 IF .XABKEY_ADDR (0) NEQA 0 

3; 1991 eh THEN 

3 1992 2043 3 PASSSFREE_VM (.XABKEY_SIZE [0], XABKEY_ADDR [0]); 

3; 1993 Spee 

3; 1994 045 id 

: 1995 2046 ' Allocate enough new KEY XABs. 

: 1996 2047 3 le 


B 15 

PASSOPEN2 procedure 16-Sep-1984 01:46:15 AX-11 Bliss-32 V4.0=-74 Pp 58 - 
1-018 K_KEY_XABS = Check key XABs for indexed fil 1a-8ep-19 4 03:30:]? PASRTL SRE IPASOMENS 34551 396 13) | 

1997 

1998 XABKEY SIZE (CO) = XABSC_KEYLEN * .FCB CFCBSL_NKEYS]; 

1999 XAB_KEY = PASSSGET_VM (PFV EBrvsr’PFV), -XABREY_SIZE (0); 

sooy XABREY_ADDR [OJ = 7XAB_KEY; 

200 4+ 

00 ' Fill in each KEY XAB and Link it into the chain. 

5008 * 

ae) LAST_XAB = .XAB_SUM; ! Link KEY XABs after SUM XAB 


INCR KEY NUM FROM 0 TO .FCB CFCBSL_NKEYS] - 1 DO 
BEGIN 


XAB_KEY CXABSB_COD] = XABSC_KEY; 

XAB_KEY CXABSB_BLNJ] = XABSC_KEYLEN; 

XAB-KEY CXABSB-REF] = .KEY ; 

LAST_XAB CXABSC_NXT] = .XAB_KEY; ! Link in XAB 
LAST_XAB = Y; 


. x K . J 
XAB_REY = .XAB_REY + XABSC_KEYLEN; 


* 
'¢ 


: Make sure that XAB_SUM is Linked to the FAB. A USER_ACTION 
routine may have unlinked it. 
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20 20 

20 207 FAB CFABSL_XAB] = .XAB_SUM; 

20 207 : 

20 207 ! Ask RMS to fill in our new XABs. 

20 207 !- 

20 207 

20 207 IF NOT SPASSRMS_OP (S$DISPLAY (FAB = FAB (0,0,0,0])) 

20 208 THEN 

20 208 SPASSIO_ERROR (PAS$_ERRDUROPE); 

20 08 ND; 

20 208 

20 208 '¢ ‘ / 

20 208 : Allocate a vector of longwords . one for each key, which will 

20 208 : contain a bit mask that indicates what key expression datatypes 

20 208 ! may be used to reference that key. and the key size. The mask 

$ SOF occupies tne first word and the length, the second word. 

203 209 

204 209 KEYTYPES = PASSSGET_VM (PFV CPFVSR_PFVJ, .FCB CFCBSL_NKEYS] * 4); 

soe 209 FCB CFCBSA_KEY_TYPES) = .KEYiYPES; 
04 209 

204 209 '¢ 

204 209 : For each key in the file, if the KDB describes the key, make sure | 
2045 209 i it matches. Set the KEYTYPES mask appropriately. This mask has 
046 209 ! 16 bits, corresponding to standard Sotot yes codes 0-15. (Codes 
047 209 : greater than 15 are not currently supported by Pascal for keys.) 
048 209 : If a bit for a particular datatype is set, then a key expression 
049 210 : of that type may be used to reference this key. Some combinations 
050 10 ! require a range check of the key expression value. This is done 
B33 18 } by PASSFINDK. Then set the key size in KEYTYPES. 
083 10 ! The following table shows the allowable combinations of key value 
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1§- -Sep-1984 01:46:15 AX-11 Bliss-3 


| PASSOPEN2 OPEN proce edur 2 V4.0-74 Page 59 
att CHECK_KEY_ XABS - Check key XABs for indexed fil 14-Sep-1984 12:51:41 PASRTL SREIPASOPENS 03551 ° (13) 
: 3035 $196 types and file key types. (STi refers to a I-byte STG key) 
: 2056 109 STG ST1 BN2 BN4 IN2 ING other 
; 2057 $108 ‘ BU no (1) ok ok no no 970 
; Spee 109 ' WU no (1) ok ok no no no 
3; 2059 $119 ; AV no (1) (2) ok on no no 
; 2060 111 ei no (1) (2) ck (3) ok no 
3 $0e3 sii¢ } T,2 ok (3) no no no no (4) 

; 5068 ae i Notes: 

; 2064 117 6« le * eats if key not declared as string. Value must 
: 2065 $118 ! n range of key type. 

; 2066 117 eam & reyes A be in range of ke type. 

3; 2067 2118 ae * ly i f key not declared as BU. 

; 2068 2119 2 ta * oe t be declared in key descriptor. Otherwise, 
; 2069 2120 2 : treated as string. 

BR 2 He Ea 

: sore 3198 § XAB_KEY = .XABKEY_ADDR [0]; ! Get first KEY XAB 

: 2074 2125 2 INCR KEY_NUM FROM 0 TO .FCB CFCBSL_NKEYS] - 1 DO 
ee tee 

$ 2077 2128 3 LOCAL 

; 2078 2129 3 KEY -DTYPE: Byte. ! Datatype of key in DSC$ codes 
3 sited $139 3 USR_KEY; if user defined key, otherwise 0 
: 2081 2132 3 ‘+ 

; 208 2133 3 ! Define Literal masks for the datatypes. 

; 208 2134 3 !- 

>; 2084 2135 3 LITERAL 

> 2085 2136 3 _1 = 14DSC$K_DTYPE_Z, 

3 2086 2137 3 M~BU = 1°DSC$K~DTYPE~BU, 

3; 2087 2138 3 M_WU = 1“DSCSK_DTYPE_WuU, 

; 2088 2139 3 M7LU = 1°DSC$K“DTYPE—LU, 

> 2089 2140 3 M7L = 1°DSCSKIDTYPE“L, 

3 444 gie] H M_T = 1*DSCSK_DTYPE_T; 

; $09 $108 3 ‘+ 

:; 209 2144 3 ! Set USR_KEY if this key is in the KDB. 

3; 2094 2145 3 !- 

: 2095 2146 3 

: 2096 2147 3 USR_KEY = 0; 

; $038 2148 ; IF <KDB_NKEYS NEQ 0 

: 2098 2149 THEN 

; 2099 2150 3 IF .XAB_KEY CXABSB_REF] EQL .KDB CKDBSB_KEY_NUMBER] 
; 2100 $12) 3 THEN 

3; 2101 13¢ ; USR_KEY = 1; 

: 2102 15 

3: 2104 155 ! Find out what datatype the file's key is. 
Rs ; 

; 199 158 CASE .XAB_KEY CXAB$B_DTP] FROM 0 TO XABSC_MAXDTP OF 
+1 et . 

> 2110 161 CXABSC_STG): ! String 
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BEGIN 
IF_ .USR_KEY 
THEN 


es CKDBSB_DTYPE] EQL DSCS$K_DTYPE_BU 


BEGIN 
IF .XAB_KEY CXABSB_TKS] NEQ 1 


$PASSI0 ERROR (PASS _KEYDEFINC,1,.KEY_NUM); 
KEYTYPES OJ = M_BU+M_WO+M_LU+M_L; 


IF .KDB CKDBSB_DTYPE] EQL DSCSK_DTYPE_7 


BEGIN 
re -KDB CKDB$B_SIZE] NEQ .XAB_KEY CXAB$B_TKS] 
SPASSIO_ERROR (PASS_KEYDEFINC,1,.KEY_NUM); 
KEYTYPES COJ = M_T+M_2Z; 
"ad 
ao SPASSIO_ERROR (PAS$_KEYDEFINC,1,.KEY_NUM) 
IF .XAB_KEY CXABSB_TKS] EQL 1 
KEYTYPES CO] = M_BU+M_L+M_T+M_2 


KEYTYPES CO] = M_T+M_Z; 
END; 


CXABSC {neds 
IF .USR_KEY 
THEN 
If _XDB CKDBSB_DTYPE] NEQ DSCSK_DTYPE_v 


SPASSIO_ERROR (PAS$_KEYDEFINC,1,.KEY_NUM); 
Revives CO3 = ALL; 


! Word integer 


CKABSC ING]: 
IF .USR_KEY 
If _.KDB CKDBSB_DTYPE] NEQ DSC$K_DTYPE_L 


SPASSIO_ERROR (PAS$_KEYDEFINC,1,.KEY_NUM); 
REVTUPES CO] = ALL; 


! Longword integer 


CXABS$C_BN2): 
IF .USR_KEY 
IF .KDB CKDBSB_DTYPE] NEQ DSCSK_DTYPE_wuU 


SPAS$SIO_ERROR (PAS$_KEYDEFINC,1,.KEY_NUM); 
KEYTYPES CO] = A_BU+M_WU+m_CU+M_L; 


! Word unsigned 


46:15 AX=11 Bt 
PASRTL.SR 
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15 
PASSOPENC procedure : 16-Sep-1984 91:46:13 AX-11 Bliss-32 oe 03 Page ¢ 
1-01 K_KEY_XABS = Check key XABs for indexed fil 14-Sep-1984 12:51:41 PASRTL.SRCJPASOPEN2.B32;1 (13) 
168 END; 
CXABSC rhe ! Longword unsigned 


IF -USRKEY 
IF _<KDB CKDBSB_DTYPE] NEQ DSCSK_DTYPE_LU 


SPASSIO_ERROR (PAS$_KEYDEFINC,1,.KEY_NUM); 
KEYTYPES (0) = A_BU+M_wu+M_CU+M_L; 


CINRANGE): ! Defined by RMS, but not by PASCAL 
BEGIN 


+ 

! Pascal does not support this key type. 

' However, if the file has one, it is treated as 
a string. 


iF .USR_KEY 
THEN 


SPASS$IO_ERROR (PAS$_KEYDEFINC,1,.KEY_NUM) ; 
REVTVPES COJ = M_T+M_2; 
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COUTRANGE]: 
SPASSBUGCHECK (BUG_BADKEYDTP); 


TES; 


DBNAUSWN—OOOnNOW 


14 
Check offset of key. 
oJ gUSR_KEY 
IF .KDB CKDBSL_OFFSET] NEQ .XAB_KEY CXAB$W_POSO] 
SPASSIO_ERROR (PASS_KEYDEFINC,1,.KEY_NUM); 
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7 
8 '+ 
9 ' Set size of key. 
210 2261 !- 
211 $566 
212 26 KEYTYPES (1) = .XAB_KEY CXAB$B_TKS); 
213 2264 
214 2265 '¢ k 
215 $566 ' Advance KDB pointer, if any remain. 
216 267 '- 
217 2268 
218 3268 IF .KDB_NKEYS GTR 0 
219 270 THEN 
220 $55 BEGIN 
221 i KDB = KDB (8,0,0,0); 
222 227 KDB_NKEYS = .KDB_NKEYS - 1; 
223 2274 
224 2275 
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PASSOPEN2 OPEN procedure 16-Sep-1984 01:46 AX-11 Bliss-32 V4.0-74 
att CHECK_KEY_XABS = Check key XABs for indexed fil 14- et & 12:81: PASRTL.SRCJPASOPEN2.B32; 1 
$ 5 6 ‘4 
; $ 78 i j_-Mévence XAB_KEY and KEYTYPES. 
: 2208 ? 
: 9 80 XAB_KEY = .XAB_KEY CXABSL_NXT]; 
3 ? 0 KEYTYPES = KEYTYPES eae a 
: ¢ Ht END; ! End of INCR Loop 
; ssee 
3 2236 285 14 
; i 3087 : If any KDB keys remain, give an error. 
; 286 
: $38 3289 IF .KDB_NKEYS GTR 0 
: $525 2291 2 SPASSIO_ERROR (PASS_KEYDEFINC,1,.KDB CKDB$B_KEY_NUMBER]); 
> 2241 3292 3 
3 sseg 229 RETURN; 
3 226 2294 2 
3 2244 2295 1 END; ! End of routine CHECK_KEY_XABS 
.EXTRN SYSSDISPLAY, PASSK_KEYDEF INC 
-EXTRN PASSS$BUGCHECK 
OF3C 00000 CHECK_KEY_XABS: 
.QORD Save R2,R RS. R4, gh. R8,R9,R10,R11 
5B 000000006 00 9€ 00002 MOVAB PASS$SSIGNA 
5A 000000006 00 9E 00009 MOVAB PASS$S$GET vA R10 
FE A7 40 8F 88 00010 BISB2 #64, - (FCB 
54 04 AC DO 00015 MOVL SUM, 
DO A? 09 A& 9A 00019 MOVZBL SCR RZ) “48CFCB) 
50 08 A6 DO OO01E OVL  8(PFVS, PFD 
60 D5 00022 TSTL CPEDY 
OC 13 00024 BEQL 1$ 
58 60 50 C1 00026 ADDL3 PFD, (PFD) , KDB 
59 88 9A O002A MOVZBL (KDB)+ *. KDB_NKEYS 
58 03 CO 900¢0 ADDL2 §3. K 
02 11 00030 BRB 2$ 
59 D4 00032 1$: CLRL KDB_NKEYS 
pO =—A7 59 D1 00034 28: CMPL KDB_NKEYS, -48(FCB) 
53 08 he 43 SOORe Hn as KEY_ADDR, R3 
rs p0 NOOR TSTL (Re) 
o¢ 13 00040 BEQL 3$ 
53 DD 00042 PUSHL R3 
OC BC DD 00044 PUSHL @XABKEY SIZE 
000000006 00 02 FB 0047 CALLS He PASSSFREE_VM 
C DO a7 0000004C «BF CC OO4E 3$: MULL3 #76, -48(FCB)> @XABKEY_SIZE 
0C BC DD 0005 PUSHL  aXABKEY SIZE 
6A 01 FB 00058 CALLS #1, PASSSGET_VM 
5¢ 50 D0 0005€ MOVL RO _KEY 
: 52 D0 90061 MOVL XAB_KEY> (R3) 
0 54 D0 00064 MOVL  R4,~LAST_XAB 
51 01 cf 00067 MNEGL #1, KEY_RUM 
14 11 0006A 4 
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[ 15 
A Bi =138¢ 91 :15 AX-11 Bliss-32 V4.0-74 Page $3 
| CHECK_KEY *XABS = Check key XABs for indexed fil 14-Sep-19 2: : :41 PASRTL.SRCJPASOPEN2.B32; 1 (13) 
. 4015 BF : B006¢ 4$ MOVW #19477, (XAB_KEY) : 2061. 
17 A 1 1 MOVB KEY_NUM, 23(RAB_KEY) + 2063. 
04 A p 75 OVL XAB-KEY, 4(LAST_XAB) 3 2064. 
5 E 79 MOVAQ (XAB_KEY)+, LAST_XAB ; 2065 
; 44 Ad 9E 0007C OV 68(R2), XAB_KEY : 3066 
£7 1 DO =A? FO 00 80 5$ AOBLSS =-48(FCB), KEY_NUM, 4$ : 2059 | 
68 A7 54 D0 00 OVL R4, 104 (# ¢B) : 2074 
53 44 A? SE 00 89 MOVAB 68(R7), R > 2079, 
53 DD O008D 6S: PUSHL R : 
000000006 99 1 FB OO8F CALLS #1, SYSSDISPLAY : 
1 0 E8 00096 BLBS  $$STATUS, BS : 
00018254 &F 0 01 90099 CMPL  $$STATUS, #98906 : 
04 iF AO BNEQ 7$ : 
£7 FF A? EB OO0A2 BLBS -1(FCB), 6$ ; 
08 50 8 O00A6 7S: BLBS  $$STATUS : 
7E 006 8F 9A 000A9 MOVZBL #PASS$K_ERRDUROPE, -(SP) + 2081 
68 01 FB ele #1, PASSSSIGNAL : 
04 0080 R : 
7E DO «A? 02 78 00081 8$: ASHL #2, -48(FCB), =<(SP) + 2091 
6A 01 FB 900B6 CALLS #1, PASSSGET_VM : 
53 29 DO 00089 MOVL RO, KEYTYPES : 
cc A? 53 00 000BC MOVL KEYTYPES, -52(FCB) > 2092 | 
5 08 BC DO 000C0 MOVL § @XABKEY_ADDR, XAB_KEY > 2123) 
§ 01 CE 000C4 MNEGL KEY > 2125) 
0oBC 31 000C7 BR 29$ : | 
54 D4 OOOCA 9S: CLRL -~ USR_KEY + 2147 
59 DS O00CC TSTL | KDBINKEYS + 2148 | 
09 13 OOOCE BEQL : 
£8 17 Ag 91 00000 CMPB =. 23(XAB_KEY), (KDB) : 2150 
0 13 00004 BNEQ 108 ; 
54 01 00 00006 OVL #1, USR_K : 2152) 
07 00 1 A2 8F 00009 108: CASEB 19(XAB REY). #0, #7 : 2158. 
2 0062 0047 OO1A OOODE 11$: <WORD 12$-115,- : | 
0078 0078 0078 0068 000E6 16$-11$.- : | 
20$-11$,- $ 
18$-11$.- : 
21$-11$.- : | 
23$-11$,- : 
23$-11$,- 3 
23$-11$ ; | 
05 DD OOOEE PUSHL #5 + 2245 
000000006 00 01 FB S0FO CALLS #1, PASSSBUGCHECK : | 
04 000F7 RET : | 
1D 54 £9 O0F8 12$:  BLBC  USR_KEY, 15$ > 2163. 
02 01 AS 91 000FB CMPB—Ss«d0W( KDB), : 2165 
08 12 OOOFF BNEQ 14$ : 
01 16 A2 91 00101 CMPB 3 (XAB_KEY) , rT > 2168. 
48 1300105 13$:  BEQL $ F | 
64 11 00107 BRB 6$ > 2170. 
3 01 AS 91 00109 148: CMPB =ss«AW (KDB), #14 > 2173, 
5E 12 00100 BNEQ 6$ ; 
16 A2 02 AS 91 0010F CMPB (KDB), 22(XAB_KEY) : 2176 
46 13 gig BEQL 4$ ; 
55 11 00116 BRB $8 > 2178 
01 16 A2 91 O18 15$: CMPB (XAB_KEY), #1 > 2184 
E if 11¢ BNEQ 4$ : 
63 4105 BF BO OO1TE MOV #16645, (KEYTYPES) > 2186 


-v 


H 15 
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8 CHECK_KEY_XABS = Check key XABs for indexed fil 1o-808=1 3b 12:51:41 LPASRTL SRe PASOPEN2.B32;1 ° a8} 
C 11 001 BRB 25$ : 
11 4 34 1 16$: BLBC USR_KEY, 19$ 3 $13 
07 01 AB | 1 CMPB 1(KBB), #7 3 219 
B 1 012C 17$: BEQL 19$ 3 
D 11 4 BRS 26$ : 219 
06 4 59 130 188: BLBC vse KEY, 19$ : 320 
8 01 3A 1 001 CMPB (KBB), # 3; 220 
F311 001 BRB 17$ : 
63 0100 8F B0 81 9 19$: MOVW $236. (KEYTYPES) : 220 
1 11 001 BRB 25$ 3 215 
OF 4 9 0140 20$: BLBC USR_KEY, ges : 221 
03 01 AB 91 0014 CMPB 1(KBB), # 3; 221 
BC 11 0014 BRB 13$ : 
06 54 59 0149 218 BLBC USR_KEY, 22$ 3 222 
04 01 ag 1 0014C CMPB 1(KBB), #4 3 222 
B3 11 90129 BRB 13$ 3 
63 011¢ 8F BO 0126 228 MOVW #284, (KEYTYPES) + 222 
08 11 0015 BRB 25$ s 2i3 
11 54 €8 00159 t+ BLBS USR Kev. 26$ 3 223 
63 4001 8F BO 0015C 24$: MOVW #16385, (KEYTYPES) 3: 224 
0D 54 €9 00161 258: BLBC USR_KEY, 3 225 
04 AB 1E A2 10 00 Fp 00164 CMPZV #0, #16, SO(XAB_KEY), 4(KDB) 3 225 
04 13 00168 BEQL 27 3 
55 DD 00160 26$: PUSHL KEY_NUM : 2257 
26 «11 OO16F BRB 3 
02 a3 16 A2 9B 00171 27$: MOVZBW 22(XAB_KEY), 2(KEYTYPES) 3 2263 
59 D5 00176 TSTL KDB_NKEYS 3 226 
05 15 00178 BLEQ 28$ Fs 
58 08 CO OO17A ADDL2 48, 3; 227 
59 07 00170 DECL KDB_NKEYS 3 227 
33 04 A2 DO OO17F 288: MOVL 4(XAB_KEY), XAB_KEY ; 228 
5 04 CO 00183 ADDL2 #4, KEYTY : 228 
02 55 DO AZ F2 00186 298: AOBLSS -48(FCB), KEY_NUM, 30$ : 2l2 
03 11 00188 BRE 31$ ; 
FF3A 31 0018D 30$: BRW 9$ : 
59 DS 00190 31$: TSTL KDB_NKEYS : 2289 
0c 15 00192 EQ $ : 
7E 68 9A 00194 MOVZBL (KDB), -(SP) 3 2291. 
01 DD 00197 32$: PUSKHL #1 5 
7E 00G 8F 9A 00199 MOVZBL M#PASSK_KEYDEFINC, -(SP) : 
68 03 FB 00190 CALLS #3, PASS$SIGNAL ; 
04 OO1A0 33% RET : 2295 
; Routine Size: 417 bytes, Routine Base: _PASSCODE + 0854 


——— OC + 
i 
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OPEN_HANDLER = Close file on unwind 14-Sep-1984 PASRTL.SRCJPASOPEN2.B32;1 (14) 


SIGNALLED ERRORS: 


; og 96 1 ZSBITL ‘OPEN_HANDLER = Close file on unwind’ 

: 224 97 1 ROUTINE OPEN HANDLER 

: 2248 98 1 SIGNAL_ARGS: REF BLOCK C, BYTE] ! Signal arguments 

: 2049 99 «1 MECHANTSM_ARGS: REF BLOCK C, BYfE), i Mechanism arguments 

3 29 BY : ENABLE _ARGS: REF VECTOR C, LONG) ' Enable arguments 

; 225 1 

3 8 6 1 l+4 

; ee e } : FUNCTIONAL DESCRIPTION: 

: 2256 06 1! OPEN_HANDLER is a condition handler established by PASSSOPEN. It 

: 2 Of 1! serves only to close the file which is currently being opened 

3 r+ SS : if an unwind occurs. 

; oy 2310 } : CALLING SEQUENCE: 

3 66 $316 +: ret_status.wlc.v = OPEN_HANDLER (signal_args.rlu.r, mechanism_args.rlu.r, 
; 226 2515 1! enable_args.rlu.r) 

; ssce geié 1! 

: 2265 315 1 ! FORMAL PARAMETERS: 

3 2266 2316 1! : : 

3; 2267 asir 69 3 SIGNAL_ARGS - The signal arguments List 

; 2268 2318 1! MECHANTSM_ARGS - The mechanism argument List 

; $568 2319 1! ENABLE _ARGS - A vector of four longwords, the first of 

; 2270 2320 1! which contains the count of remaining 

3; 2271 2321 1! Longwords (3). The remaining Longwords 

; $si¢ $358 : % contain the $0} lowing information: ; 

; 227 2325 1! ENABLE_ARGS [1] = Address of longword which 
> 2274 2324 1! contains the address of the 
: 2275 2325 1! active PFV. 

; 2276 2326 1! ENABLE_ARGS [2] - Address of longword which 
3: 2277 2327 1! contains the address of 

; 2278 2328 1! a block of KEY XABs to be 
: 2279 $362 1% deallocated (if non-zero). 
; 2280 +3 ee ENABLE _ARGS [3] - Address of longword which 
: 2281 2331 1! contains the number of bytes 
3; 2282 $356 1! of KEY XABs to deallocate. 
; s$e7 2335 1! 

; 2284 2334 1 ! IMPLICIT INPUTS: 

; 2285 2335 1! 

3; 2286 2336 1! NONE 

: 2287 2337 1! 

: 2288 2338 #1 ! IMPLICIT OUTPUTS: 

; 2289 $375 1! 

: 2290 340 1! NONE 

3 2291 2341 1! 

; $38 306 1 ! COMPLETION STATUS: 

3; 229 343 1! 

3 229% 344 1 | SS$_RESIGNAL 

: 2295 $7 1! 

: 96 re 1 ! SIDE EFFECTS: 

: 2297 i , ; : 

: 2298 48 1! Closes the current file upon an unwind. 

: 2299 4 1! Deallocates KEY XABs. 

; 2300 50 1! 

; $2) ,; 

; > a 


ty 
: If there are KEY XABs to deallocate, deallocate them. 


IF _..ENABLE_ARGS (2) NEQ 0 
. PASSSFREE_VM (..ENABLE_ARGS (3], .ENABLE_ARGS (2]); 


WANA 
SEWN 


RETURN SS$_RESIGNAL; 
END; ! End of routine OPEN_HANDLER 
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at OPEN PANDLER = Close file on unwind 12-808- 1 3be 03:30: ]2 PASRTL. tne Spacovene. 3s. 31 . (14) 
; 2303 ee NONE 
+ 2504 4 1! 
; 2305 5 : leo 
; 09 37 BEGIN 
; 2508 8 
; 2309 59 '¢ 
; 2310 60 ' Check for unwinding. 
; 1} o !e 
; 18 8 If _.SIGNAL_ARGS CCHFSL_SIG_NAME] EQL SS$_UNWIND 
$ 14 64 THE 
3 2515 65 BEGIN 
3; 2316 308 
s 17 36 LOCAL ; 
H 315 4 PFV: REF SPASSPFV_FILE_VARIABLE; ' Pascal File Variable 
; 2320 370 
; 2321 371 "it the enable argument for the PFV address is non-zero 
3 356 316 ; i. and if the FCB is valid, close the file and deallocate the FCB. 
3: 2326 374 ; 
; 2325 375 . -ENABLE_ARGS [1]; 
3; 2326 376 3 TF ‘ery’ CPF VSR Pry NEQA 0 
: 2327 377 3 N 
3; 2328 378 3 IF .PFV CPFVSV_FCB_VALIDJ 
; 4 379 3 THEN 
3; 2330 4 BEGIN 
3; 2331 4 PASS$S$SCLOSE (PFV cor yer. PFV)); ' Close the file 
3 $36 4 PASSSREMOVE_FILE (.PFV™ Pr VSA. FCB); i Deallocate FCB 
3 233 3 END; 
3: 2334 3 
3; 2335 3 
3 6 3 
; 7 3 
3 8 3 
3 9 3 
3 0 3 
: 1 3 
3 ; 2 
3 2 
3 & 2 
: 5 2 
3 6 1 


PROMIPOPINININIPININNMPI PPO NPoPo runonononofnonononofofony 


-EXTRN PASS$SCLOSE, PASSSREMOVE_FILE 
000C 00000 OPEN_HANDLER: 
- WORD 


00000920 


K 15 
PASSOPEN2 OPEN procedure 16-Sep-1984 01:46:15 AxX-11 Bliss-32 V4.0-74 
att OPEN_HANDLER = Close file on unwind 1373057138 9} 3503 PASRTL.SRCIPASOPEN -B32;1 
13 07 =A 06 E1 OOO1A BBC #6, 7(PFV), 1$ 
DD OO01F PUSH PFV 
000000006 00 01 FB 00021 CALLS #1, PASS$S$CLOSE 
0c A3 DD 00028 PUSH 12(PFV) 
000000006 00 01 FB 000 CALLS #1, PASSSREMOVE_FILE 
08 B2 D5 00032 1$ TSTL a8(R2) 
0D 1 38 EQL ¢ 
08 A2 ODD 00 PUSHL (R2) 
OC B2 DD QOO3A PUSHL a12(R2) 
000000006 00 02 FB 00030 CALL WS PASSSFREE_VM 
50 0918 8F 3C 00044 28 MOVZWL #2328, RO 
04 00049 RET 


; Routine Size: 74 bytes, Routine Base: _PASSCODE + OCFS5 
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- = @s. z= a we thd 
cru a 2c <> ee ee °o we “ ” 
— ess — wor = ”" 2 ee ” . ae oO 
eo jj a £2aAaQ ww i~n a& oO ee ”  ] ~~ wn Lt 4 a 4 
—~ aa vw foo vw Feo ww ” ad — — « xe w v 
wow 22h ” Nad ze - <« - ~] 3 eo Oo -o ce A 
c <«<<a2 w wAcCw xD w w a a - * i. 4 —Cc << ad 
ee xrrow ed {eo ee eee) = <= a _ wn” ”y HW e& =< 3s — “ 
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- <<a > Zz ££ >@ xv a x - ore Ow CO we —] ww Oo ow 4d =~ 
=x ww © oO fae YO Uw w sas enmeeiktit Fs & a = 2 u~ = at 
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@t IZ Y a = Y _ a w w + ‘<= + A 
. — z att aa a a = a o @ +--+: ve 
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POK— MUM TNOR. DOO MUM TMNOR. DHOK— UM T NOR. DHOOM TN OR. OHO CIM TNOR- DOOM CUM TIN 
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PVF FFF FTF SFT FFT ST SS ST TS DS TS FFT ST FFI OI I III III IIIIIIIIIIIII I 
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OPEN 
EXIT_ 


OM MUM TMNOPR- OPO CUM ATINO ss 
ANNMANMANNNADOOODDOO hd 
Aa aldlal al aaa dda lalalalalsal ~ A 


N 
z 
uw 
a. 
_— 
YO 


PA 
1- 


; Routine Size: 


RETURN; 


N 
aul 
$ - PASSSCLOSE_ALL (); 
8 
g 
0 1 END; 


0000 00000 EXIT_HANDLER: 
WORD 


715 VAX-11 Bliss-32 V4. 
1 CPASRTL.SRCJPASOPEN 


mo 
~s 


! End of routine EXIT HANDLER 


.EXTRN PASS$S$CLOSE_ALL 


i Save nothin 
00000000" EF a 00002 CLRL EXITH_DECLARED 
000000006 00 00 fe gous CALLS #0, PASSS$CLOSE_ALL 


16 bytes, Routine Base: 


2461 1 
2462 1 !<BLF/PAGE> 


PASSCODE + OD3F 


Page 69) 


Be te Se Se 
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N 15 
SSOPEN2 OPEN procedu 16-Sep-1984 01:46:15 AX-11 Bliss-32 V4. P 70 
-015 EXIT Panoten’s - Exit handler for file system 1a-8ep- 1382 2:51:41 PASRTL.SRC PASOPEN “235. 1 39° 16)” 
gee a6 1 END ! End of module PASSOPEN2 
416 464 1 
417 465 0 ELUDOM 


PSECT SUMMARY 


Name ‘ Bytes Attributes 
_PASSDATA WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, Soa ttt} 
“PASSCODE 340 NOVEE *NOWRT, RD, EXE, SHR, LCL, REL » PIC,ALIGN(2) 


Library Statistics 


Sennen Symbols eocoee-- Pages Processing 
File Total Loaded Percent Mapped Time 
~$255$DUA28: CSYSLIBISTARLET.L32;1 9776 151 1 581 00:01.0 
~$255$DUA28: CPASRTL.OBJJPASLIB.L32;1 427 195 45 35 00:00.4 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:PASOPEN2/OBJ=OBJ$:PASOPEN2 MSrC$:PASOPEN2/UPDATE=(ENH$:PASOPENZ2) 


Size: 3298 code + 115 data bytes r 
Run Time: 01:27. . 

Elapsed Time: 7) 18.1 

Lines/CPU Min: 1684 

eons Att Hay | 21607 

pene | Used: 824 pages 

Compilation Complete 
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